home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 15.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 30 3a 30 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:09 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 61 69 6c |s-20.3/l|isp/mail|
|000000a0| 63 72 79 70 74 2f 6d 63 | 2d 70 67 70 2e 65 6c 0a |crypt/mc|-pgp.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 6d 63 2d | (err|or "`mc-|
|000001f0| 70 67 70 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |pgp.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 72 | 65 71 75 69 72 65 20 27 |l))...(r|equire '|
|00000260| 6d 61 69 6c 63 72 79 70 | 74 29 0a 23 40 33 35 20 |mailcryp|t).#@35 |
|00000270| 2a 50 47 50 20 49 44 20 | 6f 66 20 79 6f 75 72 20 |*PGP ID |of your |
|00000280| 64 65 66 61 75 6c 74 20 | 69 64 65 6e 74 69 74 79 |default |identity|
|00000290| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 63 2d 70 67 |...(defv|ar mc-pg|
|000002a0| 70 2d 75 73 65 72 2d 69 | 64 20 28 75 73 65 72 2d |p-user-i|d (user-|
|000002b0| 6c 6f 67 69 6e 2d 6e 61 | 6d 65 29 20 28 23 24 20 |login-na|me) (#$ |
|000002c0| 2e 20 2d 36 32 34 29 29 | 0a 23 40 36 39 20 2a 49 |. -624))|.#@69 *I|
|000002d0| 66 20 74 2c 20 61 6c 77 | 61 79 73 20 73 69 67 6e |f t, alw|ays sign|
|000002e0| 20 65 6e 63 72 79 70 74 | 65 64 20 50 47 50 20 6d | encrypt|ed PGP m|
|000002f0| 65 73 73 61 67 65 73 2c | 20 6f 72 20 6e 65 76 65 |essages,| or neve|
|00000300| 72 20 73 69 67 6e 20 69 | 66 20 27 6e 65 76 65 72 |r sign i|f 'never|
|00000310| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 63 2d 70 67 |...(defv|ar mc-pg|
|00000320| 70 2d 61 6c 77 61 79 73 | 2d 73 69 67 6e 20 6e 69 |p-always|-sign ni|
|00000330| 6c 20 28 23 24 20 2e 20 | 2d 37 31 38 29 29 0a 23 |l (#$ . |-718)).#|
|00000340| 40 32 32 20 2a 54 68 65 | 20 50 47 50 20 65 78 65 |@22 *The| PGP exe|
|00000350| 63 75 74 61 62 6c 65 2e | 1f 0a 28 64 65 66 76 61 |cutable.|..(defva|
|00000360| 72 20 6d 63 2d 70 67 70 | 2d 70 61 74 68 20 22 70 |r mc-pgp|-path "p|
|00000370| 67 70 22 20 28 23 24 20 | 2e 20 2d 38 33 36 29 29 |gp" (#$ |. -836))|
|00000380| 0a 23 40 35 37 20 2a 49 | 66 20 74 2c 20 70 6f 70 |.#@57 *I|f t, pop|
|00000390| 20 75 70 20 74 68 65 20 | 50 47 50 20 6f 75 74 70 | up the |PGP outp|
|000003a0| 75 74 20 77 69 6e 64 6f | 77 20 77 68 65 6e 20 73 |ut windo|w when s|
|000003b0| 6e 61 72 66 69 6e 67 20 | 6b 65 79 73 2e 1f 0a 28 |narfing |keys...(|
|000003c0| 64 65 66 76 61 72 20 6d | 63 2d 70 67 70 2d 64 69 |defvar m|c-pgp-di|
|000003d0| 73 70 6c 61 79 2d 73 6e | 61 72 66 2d 6f 75 74 70 |splay-sn|arf-outp|
|000003e0| 75 74 20 6e 69 6c 20 28 | 23 24 20 2e 20 2d 39 30 |ut nil (|#$ . -90|
|000003f0| 32 29 29 0a 23 40 34 34 | 20 2a 50 75 62 6c 69 63 |2)).#@44| *Public|
|00000400| 20 6b 65 79 72 69 6e 67 | 20 74 6f 20 75 73 65 20 | keyring| to use |
|00000410| 69 6e 73 74 65 61 64 20 | 6f 66 20 64 65 66 61 75 |instead |of defau|
|00000420| 6c 74 2e 1f 0a 28 64 65 | 66 76 61 72 20 6d 63 2d |lt...(de|fvar mc-|
|00000430| 70 67 70 2d 61 6c 74 65 | 72 6e 61 74 65 2d 6b 65 |pgp-alte|rnate-ke|
|00000440| 79 72 69 6e 67 20 6e 69 | 6c 20 28 23 24 20 2e 20 |yring ni|l (#$ . |
|00000450| 2d 31 30 31 37 29 29 0a | 23 40 38 33 20 2a 43 6f |-1017)).|#@83 *Co|
|00000460| 6d 6d 65 6e 74 20 66 69 | 65 6c 64 20 74 6f 20 61 |mment fi|eld to a|
|00000470| 70 70 65 61 72 20 69 6e | 20 41 53 43 49 49 20 61 |ppear in| ASCII a|
|00000480| 72 6d 6f 72 20 6f 75 74 | 70 75 74 2e 20 20 49 66 |rmor out|put. If|
|00000490| 20 6e 69 6c 2c 20 6c 65 | 74 20 50 47 50 0a 75 73 | nil, le|t PGP.us|
|000004a0| 65 20 69 74 73 20 64 65 | 66 61 75 6c 74 2e 1f 0a |e its de|fault...|
|000004b0| 28 64 65 66 76 61 72 20 | 6d 63 2d 70 67 70 2d 63 |(defvar |mc-pgp-c|
|000004c0| 6f 6d 6d 65 6e 74 20 28 | 66 6f 72 6d 61 74 20 22 |omment (|format "|
|000004d0| 50 72 6f 63 65 73 73 65 | 64 20 62 79 20 4d 61 69 |Processe|d by Mai|
|000004e0| 6c 63 72 79 70 74 20 25 | 73 2c 20 61 6e 20 45 6d |lcrypt %|s, an Em|
|000004f0| 61 63 73 2f 50 47 50 20 | 69 6e 74 65 72 66 61 63 |acs/PGP |interfac|
|00000500| 65 22 20 6d 63 2d 76 65 | 72 73 69 6f 6e 29 20 28 |e" mc-ve|rsion) (|
|00000510| 23 24 20 2e 20 2d 31 31 | 31 37 29 29 0a 23 40 34 |#$ . -11|17)).#@4|
|00000520| 32 20 54 65 78 74 20 66 | 6f 72 20 73 74 61 72 74 |2 Text f|or start|
|00000530| 20 6f 66 20 50 47 50 20 | 6d 65 73 73 61 67 65 20 | of PGP |message |
|00000540| 64 65 6c 69 6d 69 74 65 | 72 2e 1f 0a 28 64 65 66 |delimite|r...(def|
|00000550| 63 6f 6e 73 74 20 6d 63 | 2d 70 67 70 2d 6d 73 67 |const mc|-pgp-msg|
|00000560| 2d 62 65 67 69 6e 2d 6c | 69 6e 65 20 22 2d 2d 2d |-begin-l|ine "---|
|00000570| 2d 2d 42 45 47 49 4e 20 | 50 47 50 20 4d 45 53 53 |--BEGIN |PGP MESS|
|00000580| 41 47 45 2d 2d 2d 2d 2d | 22 20 28 23 24 20 2e 20 |AGE-----|" (#$ . |
|00000590| 31 33 31 34 29 29 0a 23 | 40 34 30 20 54 65 78 74 |1314)).#|@40 Text|
|000005a0| 20 66 6f 72 20 65 6e 64 | 20 6f 66 20 50 47 50 20 | for end| of PGP |
|000005b0| 6d 65 73 73 61 67 65 20 | 64 65 6c 69 6d 69 74 65 |message |delimite|
|000005c0| 72 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 6d 63 |r...(def|const mc|
|000005d0| 2d 70 67 70 2d 6d 73 67 | 2d 65 6e 64 2d 6c 69 6e |-pgp-msg|-end-lin|
|000005e0| 65 20 22 2d 2d 2d 2d 2d | 45 4e 44 20 50 47 50 20 |e "-----|END PGP |
|000005f0| 4d 45 53 53 41 47 45 2d | 2d 2d 2d 2d 5c 6e 3f 22 |MESSAGE-|----\n?"|
|00000600| 20 28 23 24 20 2e 20 31 | 34 33 36 29 29 0a 23 40 | (#$ . 1|436)).#@|
|00000610| 34 30 20 54 65 78 74 20 | 66 6f 72 20 73 74 61 72 |40 Text |for star|
|00000620| 74 20 6f 66 20 50 47 50 | 20 73 69 67 6e 65 64 20 |t of PGP| signed |
|00000630| 6d 65 73 73 61 67 65 73 | 2e 1f 0a 28 64 65 66 63 |messages|...(defc|
|00000640| 6f 6e 73 74 20 6d 63 2d | 70 67 70 2d 73 69 67 6e |onst mc-|pgp-sign|
|00000650| 65 64 2d 62 65 67 69 6e | 2d 6c 69 6e 65 20 22 2d |ed-begin|-line "-|
|00000660| 2d 2d 2d 2d 42 45 47 49 | 4e 20 50 47 50 20 53 49 |----BEGI|N PGP SI|
|00000670| 47 4e 45 44 20 4d 45 53 | 53 41 47 45 2d 2d 2d 2d |GNED MES|SAGE----|
|00000680| 2d 22 20 28 23 24 20 2e | 20 31 35 35 35 29 29 0a |-" (#$ .| 1555)).|
|00000690| 23 40 33 38 20 54 65 78 | 74 20 66 6f 72 20 65 6e |#@38 Tex|t for en|
|000006a0| 64 20 6f 66 20 50 47 50 | 20 73 69 67 6e 65 64 20 |d of PGP| signed |
|000006b0| 6d 65 73 73 61 67 65 73 | 2e 1f 0a 28 64 65 66 63 |messages|...(defc|
|000006c0| 6f 6e 73 74 20 6d 63 2d | 70 67 70 2d 73 69 67 6e |onst mc-|pgp-sign|
|000006d0| 65 64 2d 65 6e 64 2d 6c | 69 6e 65 20 22 2d 2d 2d |ed-end-l|ine "---|
|000006e0| 2d 2d 45 4e 44 20 50 47 | 50 20 53 49 47 4e 41 54 |--END PG|P SIGNAT|
|000006f0| 55 52 45 2d 2d 2d 2d 2d | 22 20 28 23 24 20 2e 20 |URE-----|" (#$ . |
|00000700| 31 36 38 35 29 29 0a 23 | 40 33 35 20 54 65 78 74 |1685)).#|@35 Text|
|00000710| 20 66 6f 72 20 73 74 61 | 72 74 20 6f 66 20 50 47 | for sta|rt of PG|
|00000720| 50 20 70 75 62 6c 69 63 | 20 6b 65 79 2e 1f 0a 28 |P public| key...(|
|00000730| 64 65 66 63 6f 6e 73 74 | 20 6d 63 2d 70 67 70 2d |defconst| mc-pgp-|
|00000740| 6b 65 79 2d 62 65 67 69 | 6e 2d 6c 69 6e 65 20 22 |key-begi|n-line "|
|00000750| 5e 2d 2d 2d 2d 2d 42 45 | 47 49 4e 20 50 47 50 20 |^-----BE|GIN PGP |
|00000760| 50 55 42 4c 49 43 20 4b | 45 59 20 42 4c 4f 43 4b |PUBLIC K|EY BLOCK|
|00000770| 2d 2d 2d 2d 2d 0d 3f 24 | 22 20 28 23 24 20 2e 20 |-----.?$|" (#$ . |
|00000780| 31 38 30 34 29 29 0a 23 | 40 33 33 20 54 65 78 74 |1804)).#|@33 Text|
|00000790| 20 66 6f 72 20 65 6e 64 | 20 6f 66 20 50 47 50 20 | for end| of PGP |
|000007a0| 70 75 62 6c 69 63 20 6b | 65 79 2e 1f 0a 28 64 65 |public k|ey...(de|
|000007b0| 66 63 6f 6e 73 74 20 6d | 63 2d 70 67 70 2d 6b 65 |fconst m|c-pgp-ke|
|000007c0| 79 2d 65 6e 64 2d 6c 69 | 6e 65 20 22 5e 2d 2d 2d |y-end-li|ne "^---|
|000007d0| 2d 2d 45 4e 44 20 50 47 | 50 20 50 55 42 4c 49 43 |--END PG|P PUBLIC|
|000007e0| 20 4b 45 59 20 42 4c 4f | 43 4b 2d 2d 2d 2d 2d 0d | KEY BLO|CK-----.|
|000007f0| 3f 24 22 20 28 23 24 20 | 2e 20 31 39 33 32 29 29 |?$" (#$ |. 1932))|
|00000800| 0a 23 40 34 37 20 52 65 | 67 75 6c 61 72 20 65 78 |.#@47 Re|gular ex|
|00000810| 70 72 65 73 73 69 6f 6e | 20 6d 61 74 63 68 69 6e |pression| matchin|
|00000820| 67 20 61 6e 20 65 72 72 | 6f 72 20 66 72 6f 6d 20 |g an err|or from |
|00000830| 50 47 50 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 6d |PGP..(de|fconst m|
|00000840| 63 2d 70 67 70 2d 65 72 | 72 6f 72 2d 72 65 20 22 |c-pgp-er|ror-re "|
|00000850| 5e 5c 5c 28 45 52 52 4f | 52 3a 5c 5c 7c 57 41 52 |^\\(ERRO|R:\\|WAR|
|00000860| 4e 49 4e 47 3a 5c 5c 29 | 2e 2a 22 20 28 23 24 20 |NING:\\)|.*" (#$ |
|00000870| 2e 20 32 30 35 34 29 29 | 0a 23 40 36 34 20 52 65 |. 2054))|.#@64 Re|
|00000880| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|00000890| 20 6d 61 74 63 68 69 6e | 67 20 61 20 50 47 50 20 | matchin|g a PGP |
|000008a0| 73 69 67 6e 61 74 75 72 | 65 20 76 61 6c 69 64 61 |signatur|e valida|
|000008b0| 74 69 6f 6e 20 6d 65 73 | 73 61 67 65 1f 0a 28 64 |tion mes|sage..(d|
|000008c0| 65 66 63 6f 6e 73 74 20 | 6d 63 2d 70 67 70 2d 73 |efconst |mc-pgp-s|
|000008d0| 69 67 6f 6b 2d 72 65 20 | 22 5e 2e 2a 47 6f 6f 64 |igok-re |"^.*Good|
|000008e0| 20 73 69 67 6e 61 74 75 | 72 65 2e 2a 22 20 28 23 | signatu|re.*" (#|
|000008f0| 24 20 2e 20 32 31 37 34 | 29 29 0a 23 40 35 33 20 |$ . 2174|)).#@53 |
|00000900| 52 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |Regular |expressi|
|00000910| 6f 6e 20 6d 61 74 63 68 | 69 6e 67 20 61 20 50 47 |on match|ing a PG|
|00000920| 50 20 6b 65 79 20 73 6e | 61 72 66 20 6d 65 73 73 |P key sn|arf mess|
|00000930| 61 67 65 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 6d |age..(de|fconst m|
|00000940| 63 2d 70 67 70 2d 6e 65 | 77 6b 65 79 2d 72 65 20 |c-pgp-ne|wkey-re |
|00000950| 22 5e 5b 20 09 5d 2a 5c | 5c 28 4e 6f 5c 5c 7c 5b |"^[ .]*\|\(No\\|[|
|00000960| 30 2d 39 5d 2b 5c 5c 29 | 20 2b 6e 65 77 20 5b 6b |0-9]+\\)| +new [k|
|00000970| 75 5d 2e 2a 22 20 28 23 | 24 20 2e 20 32 33 30 34 |u].*" (#|$ . 2304|
|00000980| 29 29 0a 23 40 35 35 20 | 52 65 67 75 6c 61 72 20 |)).#@55 |Regular |
|00000990| 65 78 70 72 65 73 73 69 | 6f 6e 20 6d 61 74 63 68 |expressi|on match|
|000009a0| 69 6e 67 20 61 20 50 47 | 50 20 6d 69 73 73 69 6e |ing a PG|P missin|
|000009b0| 67 2d 6b 65 79 20 6d 65 | 73 73 61 67 65 1f 0a 28 |g-key me|ssage..(|
|000009c0| 64 65 66 63 6f 6e 73 74 | 20 6d 63 2d 70 67 70 2d |defconst| mc-pgp-|
|000009d0| 6e 6f 6b 65 79 2d 72 65 | 20 22 43 61 6e 6e 6f 74 |nokey-re| "Cannot|
|000009e0| 20 66 69 6e 64 20 74 68 | 65 20 70 75 62 6c 69 63 | find th|e public|
|000009f0| 20 6b 65 79 20 6d 61 74 | 63 68 69 6e 67 20 75 73 | key mat|ching us|
|00000a00| 65 72 69 64 20 27 5c 5c | 28 2e 2b 5c 5c 29 27 24 |erid '\\|(.+\\)'$|
|00000a10| 22 20 28 23 24 20 2e 20 | 32 34 34 30 29 29 0a 28 |" (#$ . |2440)).(|
|00000a20| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c1 5c 6e |byte-cod|e "...\n|
|00000a30| 42 12 c1 87 22 20 5b 22 | 4b 65 79 20 6d 61 74 63 |B..." ["|Key matc|
|00000a40| 68 69 6e 67 20 65 78 70 | 65 63 74 65 64 20 4b 65 |hing exp|ected Ke|
|00000a50| 79 20 49 44 20 5c 5c 28 | 5c 5c 53 20 2b 5c 5c 29 |y ID \\(|\\S +\\)|
|00000a60| 20 6e 6f 74 20 66 6f 75 | 6e 64 22 20 6d 63 2d 70 | not fou|nd" mc-p|
|00000a70| 67 70 2d 6b 65 79 2d 65 | 78 70 65 63 74 65 64 2d |gp-key-e|xpected-|
|00000a80| 72 65 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |re curre|nt-load-|
|00000a90| 6c 69 73 74 5d 20 32 29 | 0a 23 40 34 31 20 44 69 |list] 2)|.#@41 Di|
|00000aa0| 72 65 63 74 6f 72 79 20 | 69 6e 20 77 68 69 63 68 |rectory |in which|
|00000ab0| 20 6b 65 79 72 69 6e 67 | 73 20 61 72 65 20 73 74 | keyring|s are st|
|00000ac0| 6f 72 65 64 2e 1f 0a 28 | 64 65 66 76 61 72 20 6d |ored...(|defvar m|
|00000ad0| 63 2d 70 67 70 2d 6b 65 | 79 64 69 72 20 6e 69 6c |c-pgp-ke|ydir nil|
|00000ae0| 20 28 23 24 20 2e 20 32 | 37 31 38 29 29 0a 28 64 | (#$ . 2|718)).(d|
|00000af0| 65 66 61 6c 69 61 73 20 | 27 6d 63 2d 67 65 74 2d |efalias |'mc-get-|
|00000b00| 70 67 70 2d 6b 65 79 64 | 69 72 20 23 5b 6e 69 6c |pgp-keyd|ir #[nil|
|00000b10| 20 22 08 ac a9 c1 c2 21 | 70 1b 1c c5 8e c6 0e 07 | ".....!|p.......|
|00000b20| c8 0c c8 c9 ca cb cc 26 | 08 88 0c 71 88 65 62 88 |.......&|...q.eb.|
|00000b30| cd ce 21 88 cf d0 d1 94 | d1 95 5c 22 21 10 2b 08 |..!.....|..\"!.+.|
|00000b40| 87 22 20 5b 6d 63 2d 70 | 67 70 2d 6b 65 79 64 69 |." [mc-p|gp-keydi|
|00000b50| 72 20 67 65 6e 65 72 61 | 74 65 2d 6e 65 77 2d 62 |r genera|te-new-b|
|00000b60| 75 66 66 65 72 20 22 20 | 2a 6d 61 69 6c 63 72 79 |uffer " |*mailcry|
|00000b70| 70 74 20 74 65 6d 70 2a | 22 20 6f 62 75 66 20 62 |pt temp*|" obuf b|
|00000b80| 75 66 66 65 72 20 28 28 | 62 79 74 65 2d 63 6f 64 |uffer ((|byte-cod|
|00000b90| 65 20 22 08 71 88 c1 5c | 6e 21 87 22 20 5b 6f 62 |e ".q..\|n!." [ob|
|00000ba0| 75 66 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 62 |uf kill-|buffer b|
|00000bb0| 75 66 66 65 72 5d 20 32 | 29 29 20 63 61 6c 6c 2d |uffer] 2|)) call-|
|00000bc0| 70 72 6f 63 65 73 73 20 | 6d 63 2d 70 67 70 2d 70 |process |mc-pgp-p|
|00000bd0| 61 74 68 20 6e 69 6c 20 | 22 2b 76 65 72 62 6f 73 |ath nil |"+verbos|
|00000be0| 65 3d 31 22 20 22 2b 6c | 61 6e 67 75 61 67 65 3d |e=1" "+l|anguage=|
|00000bf0| 65 6e 22 20 22 2d 6b 76 | 22 20 22 58 58 58 58 58 |en" "-kv|" "XXXXX|
|00000c00| 58 58 58 58 58 22 20 72 | 65 2d 73 65 61 72 63 68 |XXXXX" r|e-search|
|00000c10| 2d 66 6f 72 77 61 72 64 | 20 22 5e 4b 65 79 20 72 |-forward| "^Key r|
|00000c20| 69 6e 67 3a 5c 5c 73 20 | 2a 27 5c 5c 28 2e 2a 5c |ing:\\s |*'\\(.*\|
|00000c30| 5c 29 27 22 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |\)'" fil|e-name-d|
|00000c40| 69 72 65 63 74 6f 72 79 | 20 62 75 66 66 65 72 2d |irectory| buffer-|
|00000c50| 73 75 62 73 74 72 69 6e | 67 2d 6e 6f 2d 70 72 6f |substrin|g-no-pro|
|00000c60| 70 65 72 74 69 65 73 20 | 31 5d 20 39 5d 29 0a 23 |perties |1] 9]).#|
|00000c70| 40 31 34 33 20 41 73 73 | 6f 63 69 61 74 69 6f 6e |@143 Ass|ociation|
|00000c80| 20 6c 69 73 74 20 6d 61 | 70 70 69 6e 67 20 50 47 | list ma|pping PG|
|00000c90| 50 20 49 44 73 20 74 6f | 20 63 61 6e 6f 6e 69 63 |P IDs to| canonic|
|00000ca0| 61 6c 20 22 6b 65 79 73 | 22 2e 20 20 41 20 22 6b |al "keys|". A "k|
|00000cb0| 65 79 22 0a 69 73 20 61 | 20 70 61 69 72 20 28 55 |ey".is a| pair (U|
|00000cc0| 53 45 52 2d 49 44 20 2e | 20 4b 45 59 2d 49 44 29 |SER-ID .| KEY-ID)|
|00000cd0| 20 77 68 69 63 68 20 69 | 64 65 6e 74 69 66 69 65 | which i|dentifie|
|00000ce0| 73 20 74 68 65 20 63 61 | 6e 6f 6e 69 63 61 6c 20 |s the ca|nonical |
|00000cf0| 49 44 73 20 6f 66 20 74 | 68 65 0a 50 47 50 20 49 |IDs of t|he.PGP I|
|00000d00| 44 2e 1f 0a 28 64 65 66 | 76 61 72 20 6d 63 2d 70 |D...(def|var mc-p|
|00000d10| 67 70 2d 6b 65 79 2d 63 | 61 63 68 65 20 6e 69 6c |gp-key-c|ache nil|
|00000d20| 20 28 23 24 20 2e 20 33 | 31 38 39 29 29 0a 28 64 | (#$ . 3|189)).(d|
|00000d30| 65 66 61 6c 69 61 73 20 | 27 6d 63 2d 70 67 70 2d |efalias |'mc-pgp-|
|00000d40| 6c 6f 6f 6b 75 70 2d 6b | 65 79 20 23 5b 28 73 74 |lookup-k|ey #[(st|
|00000d50| 72 29 20 22 08 c1 6b 3f | ad e4 c2 20 c3 50 c4 08 |r) "..k?|... .P..|
|00000d60| 0d 5c 22 a3 c6 70 c7 1e | 08 1e 09 1e 5c 6e 1e 0b |.\"..p..|....\n..|
|00000d70| 1e 0c 0e 0b ac be cd 8e | ce cf 21 16 08 d0 0e 11 |........|..!.....|
|00000d80| c7 0e 08 c7 d2 d3 08 0e | 0c 26 08 88 0e 08 71 88 |........|.&....q.|
|00000d90| 65 62 88 d4 0e 5c 6e c7 | d5 23 ab 98 d6 d7 94 d7 |eb...\n.|.#......|
|00000da0| 95 5c 22 d8 d6 d9 94 d9 | 95 5c 22 50 42 16 0b 08 |.\".....|.\"PB...|
|00000db0| 0e 0b 42 0d 42 15 29 0e | 0b ac 85 da db 08 5c 22 |..B.B.).|......\"|
|00000dc0| 88 0e 0b 2d 87 22 20 5b | 73 74 72 20 22 2a 2a 2a |...-." [|str "***|
|00000dd0| 2a 2a 20 43 4f 4e 56 45 | 4e 54 49 4f 4e 41 4c 20 |** CONVE|NTIONAL |
|00000de0| 2a 2a 2a 2a 2a 22 20 6d | 63 2d 67 65 74 2d 70 67 |*****" m|c-get-pg|
|00000df0| 70 2d 6b 65 79 64 69 72 | 20 22 73 65 63 72 69 6e |p-keydir| "secrin|
|00000e00| 67 22 20 61 73 73 6f 63 | 20 6d 63 2d 70 67 70 2d |g" assoc| mc-pgp-|
|00000e10| 6b 65 79 2d 63 61 63 68 | 65 20 22 5e 5c 5c 28 70 |key-cach|e "^\\(p|
|00000e20| 75 62 5c 5c 7c 73 65 63 | 5c 5c 29 5c 5c 73 20 2b |ub\\|sec|\\)\\s +|
|00000e30| 5b 5e 2f 5d 2b 2f 5c 5c | 28 5c 5c 53 20 2a 5c 5c |[^/]+/\\|(\\S *\\|
|00000e40| 29 5c 5c 73 20 2b 5c 5c | 53 20 2b 5c 5c 73 20 2b |)\\s +\\|S +\\s +|
|00000e50| 5c 5c 28 2e 2a 5c 5c 29 | 24 22 20 6e 69 6c 20 62 |\\(.*\\)|$" nil b|
|00000e60| 75 66 66 65 72 20 6f 62 | 75 66 20 6b 65 79 2d 72 |uffer ob|uf key-r|
|00000e70| 65 67 65 78 70 20 72 65 | 73 75 6c 74 20 6b 65 79 |egexp re|sult key|
|00000e80| 72 69 6e 67 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |ring ((b|yte-code|
|00000e90| 20 22 08 ab 84 c1 08 21 | 88 5c 6e 71 87 22 20 5b | ".....!|.\nq." [|
|00000ea0| 62 75 66 66 65 72 20 6b | 69 6c 6c 2d 62 75 66 66 |buffer k|ill-buff|
|00000eb0| 65 72 20 6f 62 75 66 5d | 20 32 29 29 20 67 65 6e |er obuf]| 2)) gen|
|00000ec0| 65 72 61 74 65 2d 6e 65 | 77 2d 62 75 66 66 65 72 |erate-ne|w-buffer|
|00000ed0| 20 22 20 2a 6d 61 69 6c | 63 72 79 70 74 20 74 65 | " *mail|crypt te|
|00000ee0| 6d 70 22 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |mp" call|-process|
|00000ef0| 20 6d 63 2d 70 67 70 2d | 70 61 74 68 20 22 2b 6c | mc-pgp-|path "+l|
|00000f00| 61 6e 67 75 61 67 65 3d | 65 6e 22 20 22 2d 6b 76 |anguage=|en" "-kv|
|00000f10| 22 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |" re-sea|rch-forw|
|00000f20| 61 72 64 20 74 20 62 75 | 66 66 65 72 2d 73 75 62 |ard t bu|ffer-sub|
|00000f30| 73 74 72 69 6e 67 2d 6e | 6f 2d 70 72 6f 70 65 72 |string-n|o-proper|
|00000f40| 74 69 65 73 20 33 20 22 | 30 78 22 20 32 20 65 72 |ties 3 "|0x" 2 er|
|00000f50| 72 6f 72 20 22 4e 6f 20 | 50 47 50 20 73 65 63 72 |ror "No |PGP secr|
|00000f60| 65 74 20 6b 65 79 20 66 | 6f 72 20 25 73 22 5d 20 |et key f|or %s"] |
|00000f70| 39 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |9]).(def|alias 'm|
|00000f80| 63 2d 70 67 70 2d 67 65 | 6e 65 72 69 63 2d 70 61 |c-pgp-ge|neric-pa|
|00000f90| 72 73 65 72 20 23 5b 28 | 72 65 73 75 6c 74 29 20 |rser #[(|result) |
|00000fa0| 22 c0 19 65 62 88 5c 6e | c3 61 ac 99 c0 c4 c5 70 |"..eb.\n|.a.....p|
|00000fb0| 5c 22 ab 86 c6 c7 21 88 | aa b7 c4 0e 08 70 c9 ca |\"....!.|.....p..|
|00000fc0| 5c 6e 5c 22 23 88 aa ab | cb 0e 0c c0 c7 23 ab 83 |\n\"#...|.....#..|
|00000fd0| c0 aa a0 65 62 ad 9c cb | cd c0 c7 23 ad 95 c3 94 |...eb...|...#....|
|00000fe0| 89 11 ad 8f 64 62 ad 8b | ce cf c0 c7 23 ad 84 09 |....db..|....#...|
|00000ff0| c3 95 42 29 87 22 20 5b | 6e 69 6c 20 73 74 61 72 |..B)." [|nil star|
|00001000| 74 20 72 65 73 75 6c 74 | 20 30 20 6d 63 2d 6d 65 |t result| 0 mc-me|
|00001010| 73 73 61 67 65 20 22 5e | 07 45 72 72 6f 72 3a 20 |ssage "^|.Error: |
|00001020| 2b 42 61 64 20 70 61 73 | 73 20 70 68 72 61 73 65 |+Bad pas|s phrase|
|00001030| 5c 5c 2e 24 22 20 6d 63 | 2d 64 65 61 63 74 69 76 |\\.$" mc|-deactiv|
|00001040| 61 74 65 2d 70 61 73 73 | 77 64 20 74 20 6d 63 2d |ate-pass|wd t mc-|
|00001050| 70 67 70 2d 65 72 72 6f | 72 2d 72 65 20 66 6f 72 |pgp-erro|r-re for|
|00001060| 6d 61 74 20 22 50 47 50 | 20 65 78 69 74 65 64 20 |mat "PGP| exited |
|00001070| 77 69 74 68 20 73 74 61 | 74 75 73 20 25 64 22 20 |with sta|tus %d" |
|00001080| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001090| 64 20 6d 63 2d 70 67 70 | 2d 6e 6f 6b 65 79 2d 72 |d mc-pgp|-nokey-r|
|000010a0| 65 20 22 2d 2d 2d 2d 2d | 42 45 47 49 4e 20 50 47 |e "-----|BEGIN PG|
|000010b0| 50 2e 2a 2d 2d 2d 2d 2d | 24 22 20 72 65 2d 73 65 |P.*-----|$" re-se|
|000010c0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 5e |arch-bac|kward "^|
|000010d0| 2d 2d 2d 2d 2d 45 4e 44 | 20 50 47 50 2e 2a 2d 2d |-----END| PGP.*--|
|000010e0| 2d 2d 2d 5c 6e 22 5d 20 | 37 5d 29 0a 28 64 65 66 |---\n"] |7]).(def|
|000010f0| 61 6c 69 61 73 20 27 6d | 63 2d 70 67 70 2d 65 6e |alias 'm|c-pgp-en|
|00001100| 63 72 79 70 74 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |crypt-re|gion #[(|
|00001110| 72 65 63 69 70 69 65 6e | 74 73 20 73 74 61 72 74 |recipien|ts start|
|00001120| 20 65 6e 64 20 26 6f 70 | 74 69 6f 6e 61 6c 20 69 | end &op|tional i|
|00001130| 64 20 73 69 67 6e 29 20 | 22 08 c1 5c 6e 21 0b 70 |d sign) |"..\n!.p|
|00001140| c4 89 89 89 89 89 89 1d | 1e 06 1e 07 1e 08 1e 09 |........|........|
|00001150| 1e 5c 6e 1e 0b 1e 0c 1b | 1e 0d 18 ce cf d0 d1 46 |.\n.....|.......F|
|00001160| 16 09 0e 12 ab 83 d3 aa | 81 d4 16 0b d5 d6 0e 0b |........|........|
|00001170| 5c 22 16 5c 6e 0e 12 ab | 86 d7 0e 09 42 16 09 0e |\".\n...|....B...|
|00001180| 18 ab 8a d5 d9 0e 18 5c | 22 0e 09 42 16 09 0e 1a |.......\|"..B....|
|00001190| ab 8c db 0e 09 d5 dc 0e | 1a 5c 22 43 5c 22 16 09 |........|.\"C\"..|
|000011a0| 0b dd 61 ac c4 0b ac 89 | 0e 1e ac 85 df e0 21 ab |..a.....|......!.|
|000011b0| b8 e1 13 e2 0e 23 ae 82 | 0e 24 21 16 08 e5 0e 08 |.....#..|.$!.....|
|000011c0| 41 d5 e6 0e 08 40 0e 08 | 41 23 5c 22 16 07 0e 09 |A....@..|A#\"....|
|000011d0| e7 e8 0e 08 41 45 a4 16 | 09 e9 ea eb 5c 22 88 d5 |....AE..|....\"..|
|000011e0| ec 0e 0b 0e 08 40 23 16 | 5c 6e aa 82 dd 13 0e 08 |.....@#.|\n......|
|000011f0| ac 86 e2 0e 24 21 16 08 | 0e 12 ab 8c 0e 2d ab 88 |....$!..|.....-..|
|00001200| 0e 08 41 0e 12 42 16 12 | db 0e 09 0e 12 5c 22 16 |..A..B..|.....\".|
|00001210| 09 ee ef 0e 5c 6e 5c 22 | 88 f0 0e 31 0e 32 0e 07 |....\n\"|...1.2..|
|00001220| 0e 33 0e 09 f4 0e 0d 26 | 07 16 06 8a 0e 0d 71 88 |.3.....&|......q.|
|00001230| 65 62 88 f5 0e 36 c4 e1 | 23 ab c1 0e 06 ab 84 f7 |eb...6..|#.......|
|00001240| f8 21 88 f9 fa 94 fa 95 | 5c 22 15 0e 3b dd 61 ac |.!......|\"..;.a.|
|00001250| a2 0e 3b ac 88 df d5 fc | 0d 5c 22 21 ab 96 fd 0d |..;.....|.\"!....|
|00001260| c4 42 21 88 0e 0c 71 88 | fe 0e 12 0e 31 0e 32 0e |.B!...q.|....1.2.|
|00001270| 23 24 aa 97 ff 0e 36 0e | 0d 5c 22 88 c4 aa 8d 0e |#$....6.|.\".....|
|00001280| 06 ad 89 ee 81 40 00 0e | 5c 6e 5c 22 88 e1 2e 0c |.....@..|\n\"....|
|00001290| 87 22 20 5b 70 72 6f 63 | 65 73 73 2d 65 6e 76 69 |." [proc|ess-envi|
|000012a0| 72 6f 6e 6d 65 6e 74 20 | 67 65 74 2d 62 75 66 66 |ronment |get-buff|
|000012b0| 65 72 2d 63 72 65 61 74 | 65 20 6d 63 2d 62 75 66 |er-creat|e mc-buf|
|000012c0| 66 65 72 2d 6e 61 6d 65 | 20 6d 63 2d 70 67 70 2d |fer-name| mc-pgp-|
|000012d0| 61 6c 77 61 79 73 2d 73 | 69 67 6e 20 6e 69 6c 20 |always-s|ign nil |
|000012e0| 70 67 70 2d 69 64 20 72 | 65 73 75 6c 74 20 70 61 |pgp-id r|esult pa|
|000012f0| 73 73 77 64 20 6b 65 79 | 20 61 72 67 73 20 6d 73 |sswd key| args ms|
|00001300| 67 20 61 63 74 69 6f 6e | 20 6f 62 75 66 20 62 75 |g action| obuf bu|
|00001310| 66 66 65 72 20 22 2b 65 | 6e 63 72 79 70 74 74 6f |ffer "+e|ncryptto|
|00001320| 73 65 6c 66 3d 6f 66 66 | 20 2b 76 65 72 62 6f 73 |self=off| +verbos|
|00001330| 65 3d 31 22 20 22 2b 62 | 61 74 63 68 6d 6f 64 65 |e=1" "+b|atchmode|
|00001340| 22 20 22 2b 6c 61 6e 67 | 75 61 67 65 3d 65 6e 22 |" "+lang|uage=en"|
|00001350| 20 22 2d 66 61 74 22 20 | 72 65 63 69 70 69 65 6e | "-fat" |recipien|
|00001360| 74 73 20 22 45 6e 63 72 | 79 70 74 69 6e 67 22 20 |ts "Encr|ypting" |
|00001370| 22 41 72 6d 6f 72 69 6e | 67 22 20 66 6f 72 6d 61 |"Armorin|g" forma|
|00001380| 74 20 22 25 73 2e 2e 2e | 22 20 22 2d 65 22 20 6d |t "%s...|" "-e" m|
|00001390| 63 2d 70 67 70 2d 63 6f | 6d 6d 65 6e 74 20 22 2b |c-pgp-co|mment "+|
|000013a0| 63 6f 6d 6d 65 6e 74 3d | 25 73 22 20 6d 63 2d 70 |comment=|%s" mc-p|
|000013b0| 67 70 2d 61 6c 74 65 72 | 6e 61 74 65 2d 6b 65 79 |gp-alter|nate-key|
|000013c0| 72 69 6e 67 20 61 70 70 | 65 6e 64 20 22 2b 70 75 |ring app|end "+pu|
|000013d0| 62 72 69 6e 67 3d 25 73 | 22 20 6e 65 76 65 72 20 |bring=%s|" never |
|000013e0| 73 69 67 6e 20 79 2d 6f | 72 2d 6e 2d 70 20 22 53 |sign y-o|r-n-p "S|
|000013f0| 69 67 6e 20 74 68 65 20 | 6d 65 73 73 61 67 65 3f |ign the |message?|
|00001400| 20 22 20 74 20 6d 63 2d | 70 67 70 2d 6c 6f 6f 6b | " t mc-|pgp-look|
|00001410| 75 70 2d 6b 65 79 20 69 | 64 20 6d 63 2d 70 67 70 |up-key i|d mc-pgp|
|00001420| 2d 75 73 65 72 2d 69 64 | 20 6d 63 2d 61 63 74 69 |-user-id| mc-acti|
|00001430| 76 61 74 65 2d 70 61 73 | 73 77 64 20 22 50 47 50 |vate-pas|swd "PGP|
|00001440| 20 70 61 73 73 70 68 72 | 61 73 65 20 66 6f 72 20 | passphr|ase for |
|00001450| 25 73 20 28 25 73 29 3a | 20 22 20 22 2d 73 22 20 |%s (%s):| " "-s" |
|00001460| 22 2d 75 22 20 73 65 74 | 65 6e 76 20 22 50 47 50 |"-u" set|env "PGP|
|00001470| 50 41 53 53 46 44 22 20 | 22 30 22 20 22 25 73 2b |PASSFD" |"0" "%s+|
|00001480| 73 69 67 6e 69 6e 67 20 | 61 73 20 25 73 20 2e 2e |signing |as %s ..|
|00001490| 2e 22 20 6d 63 2d 65 6e | 63 72 79 70 74 2d 66 6f |." mc-en|crypt-fo|
|000014a0| 72 2d 6d 65 20 6d 65 73 | 73 61 67 65 20 22 25 73 |r-me mes|sage "%s|
|000014b0| 22 20 6d 63 2d 70 72 6f | 63 65 73 73 2d 72 65 67 |" mc-pro|cess-reg|
|000014c0| 69 6f 6e 20 73 74 61 72 | 74 20 65 6e 64 20 6d 63 |ion star|t end mc|
|000014d0| 2d 70 67 70 2d 70 61 74 | 68 20 6d 63 2d 70 67 70 |-pgp-pat|h mc-pgp|
|000014e0| 2d 67 65 6e 65 72 69 63 | 2d 70 61 72 73 65 72 20 |-generic|-parser |
|000014f0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001500| 64 20 6d 63 2d 70 67 70 | 2d 6e 6f 6b 65 79 2d 72 |d mc-pgp|-nokey-r|
|00001510| 65 20 65 72 72 6f 72 20 | 22 54 68 69 73 20 73 68 |e error |"This sh|
|00001520| 6f 75 6c 64 20 6e 65 76 | 65 72 20 68 61 70 70 65 |ould nev|er happe|
|00001530| 6e 2e 22 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 |n." buff|er-subst|
|00001540| 72 69 6e 67 2d 6e 6f 2d | 70 72 6f 70 65 72 74 69 |ring-no-|properti|
|00001550| 65 73 20 31 20 6d 63 2d | 70 67 70 2d 61 6c 77 61 |es 1 mc-|pgp-alwa|
|00001560| 79 73 2d 66 65 74 63 68 | 20 22 4b 65 79 20 66 6f |ys-fetch| "Key fo|
|00001570| 72 20 27 25 73 27 20 6e | 6f 74 20 66 6f 75 6e 64 |r '%s' n|ot found|
|00001580| 3b 20 74 72 79 20 74 6f | 20 66 65 74 63 68 3f 20 |; try to| fetch? |
|00001590| 22 20 6d 63 2d 70 67 70 | 2d 66 65 74 63 68 2d 6b |" mc-pgp|-fetch-k|
|000015a0| 65 79 20 6d 63 2d 70 67 | 70 2d 65 6e 63 72 79 70 |ey mc-pg|p-encryp|
|000015b0| 74 2d 72 65 67 69 6f 6e | 20 6d 63 2d 6d 65 73 73 |t-region| mc-mess|
|000015c0| 61 67 65 20 22 25 73 20 | 44 6f 6e 65 2e 22 5d 20 |age "%s |Done."] |
|000015d0| 31 31 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |11]).(de|falias '|
|000015e0| 6d 63 2d 70 67 70 2d 64 | 65 63 72 79 70 74 2d 70 |mc-pgp-d|ecrypt-p|
|000015f0| 61 72 73 65 72 20 23 5b | 28 72 65 73 75 6c 74 29 |arser #[|(result)|
|00001600| 20 22 65 62 88 08 c1 61 | ab 91 c2 c3 21 88 c4 c5 | "eb...a|....!...|
|00001610| 21 ab 84 c1 95 62 88 60 | 64 42 87 08 c6 61 ab a3 |!....b.`|dB...a..|
|00001620| c2 c7 21 88 c8 94 c8 95 | 61 ab 8b c4 c9 21 ab 8f |..!.....|a....!..|
|00001630| c1 95 62 88 aa 89 c4 ca | 21 ab 84 c1 95 62 88 60 |..b.....|!....b.`|
|00001640| 64 42 87 cb 87 22 20 5b | 72 65 73 75 6c 74 20 30 |dB..." [|result 0|
|00001650| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001660| 72 64 20 22 5e 53 69 67 | 6e 61 74 75 72 65 20 6d |rd "^Sig|nature m|
|00001670| 61 64 65 2e 2a 5c 6e 22 | 20 6c 6f 6f 6b 69 6e 67 |ade.*\n"| looking|
|00001680| 2d 61 74 20 22 07 5c 6e | 57 41 52 4e 49 4e 47 3a |-at ".\n|WARNING:|
|00001690| 20 20 42 65 63 61 75 73 | 65 20 74 68 69 73 20 70 | Becaus|e this p|
|000016a0| 75 62 6c 69 63 20 6b 65 | 79 2e 2a 5c 6e 2e 2a 5c |ublic ke|y.*\n.*\|
|000016b0| 6e 2e 2a 5c 6e 22 20 31 | 20 22 5c 5c 28 5c 5c 28 |n.*\n" 1| "\\(\\(|
|000016c0| 5e 46 69 6c 65 20 69 73 | 20 63 6f 6e 76 65 6e 2e |^File is| conven.|
|000016d0| 2a 5c 5c 29 3f 4a 75 73 | 74 20 61 20 6d 6f 6d 65 |*\\)?Jus|t a mome|
|000016e0| 6e 74 5c 5c 2e 2b 5c 5c | 29 5c 5c 7c 5c 5c 28 5e |nt\\.+\\|)\\|\\(^|
|000016f0| 5c 5c 2e 5c 5c 29 22 20 | 32 20 22 5c 6e 46 69 6c |\\.\\)" |2 "\nFil|
|00001700| 65 20 68 61 73 20 73 69 | 67 6e 61 74 75 72 65 2e |e has si|gnature.|
|00001710| 2a 5c 5c 28 5c 6e 07 2e | 2a 5c 6e 5c 5c 29 2a 5c |*\\(\n..|*\n\\)*\|
|00001720| 6e 57 41 52 4e 49 4e 47 | 3a 2e 2a 5c 6e 22 20 22 |nWARNING|:.*\n" "|
|00001730| 50 61 73 73 20 70 68 72 | 61 73 65 20 61 70 70 65 |Pass phr|ase appe|
|00001740| 61 72 73 20 67 6f 6f 64 | 5c 5c 2e 20 5c 5c 2e 22 |ars good|\\. \\."|
|00001750| 20 6e 69 6c 5d 20 32 5d | 29 0a 28 64 65 66 61 6c | nil] 2]|).(defal|
|00001760| 69 61 73 20 27 6d 63 2d | 70 67 70 2d 64 65 63 72 |ias 'mc-|pgp-decr|
|00001770| 79 70 74 2d 72 65 67 69 | 6f 6e 20 23 5b 28 73 74 |ypt-regi|on #[(st|
|00001780| 61 72 74 20 65 6e 64 20 | 26 6f 70 74 69 6f 6e 61 |art end |&optiona|
|00001790| 6c 20 69 64 29 20 22 08 | c1 5c 6e 21 c3 89 89 89 |l id) ".|.\n!....|
|000017a0| 89 89 1c 1d 1e 06 1e 07 | 1e 08 1e 09 1e 5c 6e 18 |........|.....\n.|
|000017b0| cb 20 88 cc 0e 0d ae 82 | 0e 0e 21 89 16 08 ab 94 |. ......|..!.....|
|000017c0| cf 0e 08 41 0e 0d ad 89 | d0 d1 0e 08 40 0e 08 41 |...A....|....@..A|
|000017d0| 23 5c 22 aa 85 cf 0e 0d | d2 5c 22 89 16 06 ab 85 |#\".....|.\".....|
|000017e0| d3 d4 d5 5c 22 88 d6 16 | 09 0e 17 ab 8c d8 0e 09 |...\"...|........|
|000017f0| d0 d9 0e 17 5c 22 43 5c | 22 16 09 da db 21 88 dc |....\"C\|"....!..|
|00001800| 0e 1d 0e 1e 0e 06 0e 1f | 0e 09 e0 0e 5c 6e 26 07 |........|....\n&.|
|00001810| 89 15 ab da da e1 21 88 | 8a 0e 5c 6e 71 88 65 62 |......!.|..\nq.eb|
|00001820| 88 e2 0e 23 c3 e4 23 ab | 89 e5 e6 e7 94 e7 95 5c |...#..#.|.......\|
|00001830| 22 50 14 29 0c ab ab 0e | 28 e9 61 ac a5 0e 28 ac |"P.)....|(.a...(.|
|00001840| 88 ea d0 eb 0c 5c 22 21 | ab 99 ec c3 0c 42 21 ab |.....\"!|.....B!.|
|00001850| 92 ed 20 88 ee e7 21 88 | ef 0e 1d 0e 1e 0e 0d 23 |.. ...!.|.......#|
|00001860| 82 47 01 f0 0e 23 0e 5c | 6e 5c 22 88 e4 0d f1 61 |.G...#.\|n\"....a|
|00001870| 42 aa f8 8a 0e 5c 6e 71 | ad a4 65 62 ad a0 e2 f2 |B....\nq|..eb....|
|00001880| c3 e4 23 ad 99 cc e5 e6 | e7 94 e7 95 5c 22 50 21 |..#.....|....\"P!|
|00001890| 89 16 07 ad 8a 0e 0d ad | 85 0e 08 0e 07 6b 3f 29 |........|.....k?)|
|000018a0| ab 8b ef 0e 1d 0e 1e 0e | 07 41 23 aa c0 8a 0e 5c |........|.A#....\|
|000018b0| 6e 71 ad 89 65 62 ad 85 | e2 f3 c3 e4 23 29 ab 91 |nq..eb..|....#)..|
|000018c0| 0e 08 ac 84 f4 e4 21 88 | ef 0e 1d 0e 1e f5 23 aa |......!.|......#.|
|000018d0| 9d f6 0e 5c 6e 21 88 f0 | f7 0e 5c 6e 5c 22 ab 86 |...\n!..|..\n\"..|
|000018e0| f4 e4 21 88 aa 88 f0 0e | 38 0e 5c 6e f9 23 88 c3 |..!.....|8.\n.#..|
|000018f0| 89 42 2e 08 87 22 20 5b | 70 72 6f 63 65 73 73 2d |.B..." [|process-|
|00001900| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 67 65 74 2d |environm|ent get-|
|00001910| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 6d 63 |buffer-c|reate mc|
|00001920| 2d 62 75 66 66 65 72 2d | 6e 61 6d 65 20 6e 69 6c |-buffer-|name nil|
|00001930| 20 70 67 70 2d 69 64 20 | 72 65 73 75 6c 74 20 70 | pgp-id |result p|
|00001940| 61 73 73 77 64 20 6e 65 | 77 2d 6b 65 79 20 6b 65 |asswd ne|w-key ke|
|00001950| 79 20 61 72 67 73 20 62 | 75 66 66 65 72 20 75 6e |y args b|uffer un|
|00001960| 64 6f 2d 62 6f 75 6e 64 | 61 72 79 20 6d 63 2d 70 |do-bound|ary mc-p|
|00001970| 67 70 2d 6c 6f 6f 6b 75 | 70 2d 6b 65 79 20 69 64 |gp-looku|p-key id|
|00001980| 20 6d 63 2d 70 67 70 2d | 75 73 65 72 2d 69 64 20 | mc-pgp-|user-id |
|00001990| 6d 63 2d 61 63 74 69 76 | 61 74 65 2d 70 61 73 73 |mc-activ|ate-pass|
|000019a0| 77 64 20 66 6f 72 6d 61 | 74 20 22 50 47 50 20 70 |wd forma|t "PGP p|
|000019b0| 61 73 73 70 68 72 61 73 | 65 20 66 6f 72 20 25 73 |assphras|e for %s|
|000019c0| 20 28 25 73 29 3a 20 22 | 20 22 50 47 50 20 70 61 | (%s): "| "PGP pa|
|000019d0| 73 73 70 68 72 61 73 65 | 20 66 6f 72 20 63 6f 6e |ssphrase| for con|
|000019e0| 76 65 6e 74 69 6f 6e 61 | 6c 20 64 65 63 72 79 70 |ventiona|l decryp|
|000019f0| 74 69 6f 6e 3a 20 22 20 | 73 65 74 65 6e 76 20 22 |tion: " |setenv "|
|00001a00| 50 47 50 50 41 53 53 46 | 44 22 20 22 30 22 20 28 |PGPPASSF|D" "0" (|
|00001a10| 22 2b 76 65 72 62 6f 73 | 65 3d 31 22 20 22 2b 62 |"+verbos|e=1" "+b|
|00001a20| 61 74 63 68 6d 6f 64 65 | 22 20 22 2b 6c 61 6e 67 |atchmode|" "+lang|
|00001a30| 75 61 67 65 3d 65 6e 22 | 20 22 2d 66 22 29 20 6d |uage=en"| "-f") m|
|00001a40| 63 2d 70 67 70 2d 61 6c | 74 65 72 6e 61 74 65 2d |c-pgp-al|ternate-|
|00001a50| 6b 65 79 72 69 6e 67 20 | 61 70 70 65 6e 64 20 22 |keyring |append "|
|00001a60| 2b 70 75 62 72 69 6e 67 | 3d 25 73 22 20 6d 65 73 |+pubring|=%s" mes|
|00001a70| 73 61 67 65 20 22 44 65 | 63 72 79 70 74 69 6e 67 |sage "De|crypting|
|00001a80| 2e 2e 2e 22 20 6d 63 2d | 70 72 6f 63 65 73 73 2d |..." mc-|process-|
|00001a90| 72 65 67 69 6f 6e 20 73 | 74 61 72 74 20 65 6e 64 |region s|tart end|
|00001aa0| 20 6d 63 2d 70 67 70 2d | 70 61 74 68 20 6d 63 2d | mc-pgp-|path mc-|
|00001ab0| 70 67 70 2d 64 65 63 72 | 79 70 74 2d 70 61 72 73 |pgp-decr|ypt-pars|
|00001ac0| 65 72 20 22 44 65 63 72 | 79 70 74 69 6e 67 2e 2e |er "Decr|ypting..|
|00001ad0| 2e 20 44 6f 6e 65 2e 22 | 20 72 65 2d 73 65 61 72 |. Done."| re-sear|
|00001ae0| 63 68 2d 66 6f 72 77 61 | 72 64 20 6d 63 2d 70 67 |ch-forwa|rd mc-pg|
|00001af0| 70 2d 6b 65 79 2d 65 78 | 70 65 63 74 65 64 2d 72 |p-key-ex|pected-r|
|00001b00| 65 20 74 20 22 30 78 22 | 20 62 75 66 66 65 72 2d |e t "0x"| buffer-|
|00001b10| 73 75 62 73 74 72 69 6e | 67 2d 6e 6f 2d 70 72 6f |substrin|g-no-pro|
|00001b20| 70 65 72 74 69 65 73 20 | 31 20 6d 63 2d 70 67 70 |perties |1 mc-pgp|
|00001b30| 2d 61 6c 77 61 79 73 2d | 66 65 74 63 68 20 6e 65 |-always-|fetch ne|
|00001b40| 76 65 72 20 79 2d 6f 72 | 2d 6e 2d 70 20 22 4b 65 |ver y-or|-n-p "Ke|
|00001b50| 79 20 25 73 20 6e 6f 74 | 20 66 6f 75 6e 64 3b 20 |y %s not| found; |
|00001b60| 61 74 74 65 6d 70 74 20 | 74 6f 20 66 65 74 63 68 |attempt |to fetch|
|00001b70| 3f 20 22 20 6d 63 2d 70 | 67 70 2d 66 65 74 63 68 |? " mc-p|gp-fetch|
|00001b80| 2d 6b 65 79 20 75 6e 64 | 6f 2d 73 74 61 72 74 20 |-key und|o-start |
|00001b90| 75 6e 64 6f 2d 6d 6f 72 | 65 20 6d 63 2d 70 67 70 |undo-mor|e mc-pgp|
|00001ba0| 2d 64 65 63 72 79 70 74 | 2d 72 65 67 69 6f 6e 20 |-decrypt|-region |
|00001bb0| 6d 63 2d 6d 65 73 73 61 | 67 65 20 30 20 22 5e 4b |mc-messa|ge 0 "^K|
|00001bc0| 65 79 20 66 6f 72 20 75 | 73 65 72 20 49 44 3a 2e |ey for u|ser ID:.|
|00001bd0| 2a 5c 6e 2e 2a 4b 65 79 | 20 49 44 20 5c 5c 28 5b |*\n.*Key| ID \\([|
|00001be0| 30 2d 39 41 2d 46 5d 2b | 5c 5c 29 22 20 22 5e 46 |0-9A-F]+|\\)" "^F|
|00001bf0| 69 6c 65 20 69 73 20 63 | 6f 6e 76 65 6e 74 69 6f |ile is c|onventio|
|00001c00| 6e 61 6c 6c 79 20 65 6e | 63 72 79 70 74 65 64 22 |nally en|crypted"|
|00001c10| 20 6d 63 2d 64 65 61 63 | 74 69 76 61 74 65 2d 70 | mc-deac|tivate-p|
|00001c20| 61 73 73 77 64 20 22 2a | 2a 2a 2a 2a 20 43 4f 4e |asswd "*|**** CON|
|00001c30| 56 45 4e 54 49 4f 4e 41 | 4c 20 2a 2a 2a 2a 2a 22 |VENTIONA|L *****"|
|00001c40| 20 6d 63 2d 64 69 73 70 | 6c 61 79 2d 62 75 66 66 | mc-disp|lay-buff|
|00001c50| 65 72 20 22 5e 07 45 72 | 72 6f 72 3a 20 2b 42 61 |er "^.Er|ror: +Ba|
|00001c60| 64 20 70 61 73 73 20 70 | 68 72 61 73 65 5c 5c 2e |d pass p|hrase\\.|
|00001c70| 24 22 20 6d 63 2d 70 67 | 70 2d 65 72 72 6f 72 2d |$" mc-pg|p-error-|
|00001c80| 72 65 20 22 45 72 72 6f | 72 20 64 65 63 72 79 70 |re "Erro|r decryp|
|00001c90| 74 69 6e 67 20 62 75 66 | 66 65 72 22 5d 20 39 5d |ting buf|fer"] 9]|
|00001ca0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 63 2d |).(defal|ias 'mc-|
|00001cb0| 70 67 70 2d 73 69 67 6e | 2d 72 65 67 69 6f 6e 20 |pgp-sign|-region |
|00001cc0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 20 26 6f 70 |#[(start| end &op|
|00001cd0| 74 69 6f 6e 61 6c 20 69 | 64 20 75 6e 63 6c 65 61 |tional i|d unclea|
|00001ce0| 72 29 20 22 08 c1 5c 6e | 21 c3 89 89 1c 1d 1e 06 |r) "..\n|!.......|
|00001cf0| 1e 07 18 c8 0e 09 ae 82 | 0e 5c 6e 21 14 cb 0c 41 |........|.\n!...A|
|00001d00| cc cd 0c 40 0c 41 23 5c | 22 16 06 ce cf d0 5c 22 |...@.A#\|".....\"|
|00001d10| 88 d1 d2 d3 cc d4 0e 15 | ab 83 d6 aa 81 d7 5c 22 |........|......\"|
|00001d20| d8 d9 0c 41 af 07 15 0e | 1a ab 88 cc db 0e 1a 5c |...A....|.......\|
|00001d30| 22 0d 42 15 dc dd 0c 40 | 5c 22 88 de 0e 1f 0e 20 |".B....@|\"..... |
|00001d40| 0e 06 0e 21 0d e2 0e 07 | 26 07 ad 87 dc e3 0c 40 |...!....|&......@|
|00001d50| 5c 22 88 e4 2d 87 22 20 | 5b 70 72 6f 63 65 73 73 |\"..-." |[process|
|00001d60| 2d 65 6e 76 69 72 6f 6e | 6d 65 6e 74 20 67 65 74 |-environ|ment get|
|00001d70| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 6d |-buffer-|create m|
|00001d80| 63 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 6e 69 |c-buffer|-name ni|
|00001d90| 6c 20 6b 65 79 20 61 72 | 67 73 20 70 61 73 73 77 |l key ar|gs passw|
|00001da0| 64 20 62 75 66 66 65 72 | 20 6d 63 2d 70 67 70 2d |d buffer| mc-pgp-|
|00001db0| 6c 6f 6f 6b 75 70 2d 6b | 65 79 20 69 64 20 6d 63 |lookup-k|ey id mc|
|00001dc0| 2d 70 67 70 2d 75 73 65 | 72 2d 69 64 20 6d 63 2d |-pgp-use|r-id mc-|
|00001dd0| 61 63 74 69 76 61 74 65 | 2d 70 61 73 73 77 64 20 |activate|-passwd |
|00001de0| 66 6f 72 6d 61 74 20 22 | 50 47 50 20 70 61 73 73 |format "|PGP pass|
|00001df0| 70 68 72 61 73 65 20 66 | 6f 72 20 25 73 20 28 25 |phrase f|or %s (%|
|00001e00| 73 29 3a 20 22 20 73 65 | 74 65 6e 76 20 22 50 47 |s): " se|tenv "PG|
|00001e10| 50 50 41 53 53 46 44 22 | 20 22 30 22 20 22 2d 66 |PPASSFD"| "0" "-f|
|00001e20| 61 73 74 22 20 22 2b 76 | 65 72 62 6f 73 65 3d 31 |ast" "+v|erbose=1|
|00001e30| 22 20 22 2b 6c 61 6e 67 | 75 61 67 65 3d 65 6e 22 |" "+lang|uage=en"|
|00001e40| 20 22 2b 63 6c 65 61 72 | 73 69 67 3d 25 73 22 20 | "+clear|sig=%s" |
|00001e50| 75 6e 63 6c 65 61 72 20 | 22 6f 66 66 22 20 22 6f |unclear |"off" "o|
|00001e60| 6e 22 20 22 2b 62 61 74 | 63 68 6d 6f 64 65 22 20 |n" "+bat|chmode" |
|00001e70| 22 2d 75 22 20 6d 63 2d | 70 67 70 2d 63 6f 6d 6d |"-u" mc-|pgp-comm|
|00001e80| 65 6e 74 20 22 2b 63 6f | 6d 6d 65 6e 74 3d 25 73 |ent "+co|mment=%s|
|00001e90| 22 20 6d 65 73 73 61 67 | 65 20 22 53 69 67 6e 69 |" messag|e "Signi|
|00001ea0| 6e 67 20 61 73 20 25 73 | 20 2e 2e 2e 22 20 6d 63 |ng as %s| ..." mc|
|00001eb0| 2d 70 72 6f 63 65 73 73 | 2d 72 65 67 69 6f 6e 20 |-process|-region |
|00001ec0| 73 74 61 72 74 20 65 6e | 64 20 6d 63 2d 70 67 70 |start en|d mc-pgp|
|00001ed0| 2d 70 61 74 68 20 6d 63 | 2d 70 67 70 2d 67 65 6e |-path mc|-pgp-gen|
|00001ee0| 65 72 69 63 2d 70 61 72 | 73 65 72 20 22 53 69 67 |eric-par|ser "Sig|
|00001ef0| 6e 69 6e 67 20 61 73 20 | 25 73 20 2e 2e 2e 20 44 |ning as |%s ... D|
|00001f00| 6f 6e 65 2e 22 20 74 5d | 20 38 5d 29 0a 28 64 65 |one." t]| 8]).(de|
|00001f10| 66 61 6c 69 61 73 20 27 | 6d 63 2d 70 67 70 2d 76 |falias '|mc-pgp-v|
|00001f20| 65 72 69 66 79 2d 70 61 | 72 73 65 72 20 23 5b 28 |erify-pa|rser #[(|
|00001f30| 72 65 73 75 6c 74 29 20 | 22 08 c1 61 ab 88 c2 0b |result) |"..a....|
|00001f40| 70 c4 23 88 c5 87 08 c6 | 61 ab 89 c2 0e 07 70 c8 |p.#.....|a.....p.|
|00001f50| 23 88 c9 87 c2 0e 07 70 | ca cb 08 5c 22 23 88 c9 |#......p|...\"#..|
|00001f60| 87 22 20 5b 72 65 73 75 | 6c 74 20 30 20 6d 63 2d |." [resu|lt 0 mc-|
|00001f70| 6d 65 73 73 61 67 65 20 | 6d 63 2d 70 67 70 2d 73 |message |mc-pgp-s|
|00001f80| 69 67 6f 6b 2d 72 65 20 | 22 47 6f 6f 64 20 73 69 |igok-re |"Good si|
|00001f90| 67 6e 61 74 75 72 65 22 | 20 74 20 31 20 6d 63 2d |gnature"| t 1 mc-|
|00001fa0| 70 67 70 2d 65 72 72 6f | 72 2d 72 65 20 22 42 61 |pgp-erro|r-re "Ba|
|00001fb0| 64 20 73 69 67 6e 61 74 | 75 72 65 22 20 6e 69 6c |d signat|ure" nil|
|00001fc0| 20 66 6f 72 6d 61 74 20 | 22 50 47 50 20 65 78 69 | format |"PGP exi|
|00001fd0| 74 65 64 20 77 69 74 68 | 20 73 74 61 74 75 73 20 |ted with| status |
|00001fe0| 25 64 22 5d 20 36 5d 29 | 0a 28 64 65 66 61 6c 69 |%d"] 6])|.(defali|
|00001ff0| 61 73 20 27 6d 63 2d 70 | 67 70 2d 76 65 72 69 66 |as 'mc-p|gp-verif|
|00002000| 79 2d 72 65 67 69 6f 6e | 20 23 5b 28 73 74 61 72 |y-region| #[(star|
|00002010| 74 20 65 6e 64 20 26 6f | 70 74 69 6f 6e 61 6c 20 |t end &o|ptional |
|00002020| 6e 6f 2d 66 65 74 63 68 | 29 20 22 c0 09 21 70 c2 |no-fetch|) "..!p.|
|00002030| 89 1b 1c 1d 1e 06 c7 14 | 0e 08 ab 8a c9 0c ca cb |........|........|
|00002040| 0e 08 5c 22 43 5c 22 14 | cc cd 21 88 ce 0e 0f 0e |..\"C\".|..!.....|
|00002050| 10 c2 0e 11 0c d2 0e 06 | 26 07 ab 83 d3 aa cf 8a |........|&.......|
|00002060| 0e 06 71 88 65 62 88 0e | 14 ac ba d5 0e 16 c2 d3 |..q.eb..|........|
|00002070| 23 ab b2 d7 d8 d9 94 d9 | 95 5c 22 50 89 13 ab a6 |#.......|.\"P....|
|00002080| 0e 1a db 61 ac a0 0e 1a | ac 88 dc ca dd 0b 5c 22 |...a....|......\"|
|00002090| 21 ab 94 de c2 0b 42 21 | ab 8d 0d 71 ab 89 df 0e |!.....B!|...q....|
|000020a0| 0f 0e 10 d3 23 aa 88 e0 | 0e 21 0e 06 5c 22 88 c2 |....#...|.!..\"..|
|000020b0| 29 2c 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |),." [ge|t-buffer|
|000020c0| 2d 63 72 65 61 74 65 20 | 6d 63 2d 62 75 66 66 65 |-create |mc-buffe|
|000020d0| 72 2d 6e 61 6d 65 20 6e | 69 6c 20 70 67 70 2d 69 |r-name n|il pgp-i|
|000020e0| 64 20 61 72 67 73 20 6f | 62 75 66 20 62 75 66 66 |d args o|buf buff|
|000020f0| 65 72 20 28 22 2b 76 65 | 72 62 6f 73 65 3d 31 22 |er ("+ve|rbose=1"|
|00002100| 20 22 2b 62 61 74 63 68 | 6d 6f 64 65 22 20 22 2b | "+batch|mode" "+|
|00002110| 6c 61 6e 67 75 61 67 65 | 3d 65 6e 22 20 22 2d 66 |language|=en" "-f|
|00002120| 22 29 20 6d 63 2d 70 67 | 70 2d 61 6c 74 65 72 6e |") mc-pg|p-altern|
|00002130| 61 74 65 2d 6b 65 79 72 | 69 6e 67 20 61 70 70 65 |ate-keyr|ing appe|
|00002140| 6e 64 20 66 6f 72 6d 61 | 74 20 22 2b 70 75 62 72 |nd forma|t "+pubr|
|00002150| 69 6e 67 3d 25 73 22 20 | 6d 65 73 73 61 67 65 20 |ing=%s" |message |
|00002160| 22 56 65 72 69 66 79 69 | 6e 67 2e 2e 2e 22 20 6d |"Verifyi|ng..." m|
|00002170| 63 2d 70 72 6f 63 65 73 | 73 2d 72 65 67 69 6f 6e |c-proces|s-region|
|00002180| 20 73 74 61 72 74 20 65 | 6e 64 20 6d 63 2d 70 67 | start e|nd mc-pg|
|00002190| 70 2d 70 61 74 68 20 6d | 63 2d 70 67 70 2d 76 65 |p-path m|c-pgp-ve|
|000021a0| 72 69 66 79 2d 70 61 72 | 73 65 72 20 74 20 6e 6f |rify-par|ser t no|
|000021b0| 2d 66 65 74 63 68 20 72 | 65 2d 73 65 61 72 63 68 |-fetch r|e-search|
|000021c0| 2d 66 6f 72 77 61 72 64 | 20 6d 63 2d 70 67 70 2d |-forward| mc-pgp-|
|000021d0| 6b 65 79 2d 65 78 70 65 | 63 74 65 64 2d 72 65 20 |key-expe|cted-re |
|000021e0| 22 30 78 22 20 62 75 66 | 66 65 72 2d 73 75 62 73 |"0x" buf|fer-subs|
|000021f0| 74 72 69 6e 67 2d 6e 6f | 2d 70 72 6f 70 65 72 74 |tring-no|-propert|
|00002200| 69 65 73 20 31 20 6d 63 | 2d 70 67 70 2d 61 6c 77 |ies 1 mc|-pgp-alw|
|00002210| 61 79 73 2d 66 65 74 63 | 68 20 6e 65 76 65 72 20 |ays-fetc|h never |
|00002220| 79 2d 6f 72 2d 6e 2d 70 | 20 22 4b 65 79 20 25 73 |y-or-n-p| "Key %s|
|00002230| 20 6e 6f 74 20 66 6f 75 | 6e 64 3b 20 61 74 74 65 | not fou|nd; atte|
|00002240| 6d 70 74 20 74 6f 20 66 | 65 74 63 68 3f 20 22 20 |mpt to f|etch? " |
|00002250| 6d 63 2d 70 67 70 2d 66 | 65 74 63 68 2d 6b 65 79 |mc-pgp-f|etch-key|
|00002260| 20 6d 63 2d 70 67 70 2d | 76 65 72 69 66 79 2d 72 | mc-pgp-|verify-r|
|00002270| 65 67 69 6f 6e 20 6d 63 | 2d 6d 65 73 73 61 67 65 |egion mc|-message|
|00002280| 20 6d 63 2d 70 67 70 2d | 65 72 72 6f 72 2d 72 65 | mc-pgp-|error-re|
|00002290| 5d 20 38 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 8]).(d|efalias |
|000022a0| 27 6d 63 2d 70 67 70 2d | 69 6e 73 65 72 74 2d 70 |'mc-pgp-|insert-p|
|000022b0| 75 62 6c 69 63 2d 6b 65 | 79 20 23 5b 28 26 6f 70 |ublic-ke|y #[(&op|
|000022c0| 74 69 6f 6e 61 6c 20 69 | 64 29 20 22 c0 09 21 c2 |tional i|d) "..!.|
|000022d0| 1b 1c 0d ae 82 0e 06 15 | c7 c8 c9 ca 0d af 05 13 |........|........|
|000022e0| 0e 0b ab 88 cc cd 0e 0b | 5c 22 0b 42 13 0e 0e ab |........|\".B....|
|000022f0| 8a cf 0b cc d0 0e 0e 5c | 22 43 5c 22 13 d1 60 60 |.......\|"C\"..``|
|00002300| c2 0e 12 0b d3 0c 26 07 | ad 86 d4 d5 0c 5c 22 88 |......&.|.....\".|
|00002310| d6 2a 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |.*." [ge|t-buffer|
|00002320| 2d 63 72 65 61 74 65 20 | 6d 63 2d 62 75 66 66 65 |-create |mc-buffe|
|00002330| 72 2d 6e 61 6d 65 20 6e | 69 6c 20 61 72 67 73 20 |r-name n|il args |
|00002340| 62 75 66 66 65 72 20 69 | 64 20 6d 63 2d 70 67 70 |buffer i|d mc-pgp|
|00002350| 2d 75 73 65 72 2d 69 64 | 20 22 2b 76 65 72 62 6f |-user-id| "+verbo|
|00002360| 73 65 3d 31 22 20 22 2b | 62 61 74 63 68 6d 6f 64 |se=1" "+|batchmod|
|00002370| 65 22 20 22 2b 6c 61 6e | 67 75 61 67 65 3d 65 6e |e" "+lan|guage=en|
|00002380| 22 20 22 2d 6b 78 61 66 | 22 20 6d 63 2d 70 67 70 |" "-kxaf|" mc-pgp|
|00002390| 2d 63 6f 6d 6d 65 6e 74 | 20 66 6f 72 6d 61 74 20 |-comment| format |
|000023a0| 22 2b 63 6f 6d 6d 65 6e | 74 3d 25 73 22 20 6d 63 |"+commen|t=%s" mc|
|000023b0| 2d 70 67 70 2d 61 6c 74 | 65 72 6e 61 74 65 2d 6b |-pgp-alt|ernate-k|
|000023c0| 65 79 72 69 6e 67 20 61 | 70 70 65 6e 64 20 22 2b |eyring a|ppend "+|
|000023d0| 70 75 62 72 69 6e 67 3d | 25 73 22 20 6d 63 2d 70 |pubring=|%s" mc-p|
|000023e0| 72 6f 63 65 73 73 2d 72 | 65 67 69 6f 6e 20 6d 63 |rocess-r|egion mc|
|000023f0| 2d 70 67 70 2d 70 61 74 | 68 20 6d 63 2d 70 67 70 |-pgp-pat|h mc-pgp|
|00002400| 2d 67 65 6e 65 72 69 63 | 2d 70 61 72 73 65 72 20 |-generic|-parser |
|00002410| 6d 63 2d 6d 65 73 73 61 | 67 65 20 22 4b 65 79 20 |mc-messa|ge "Key |
|00002420| 66 6f 72 20 75 73 65 72 | 20 49 44 3a 20 2e 2a 22 |for user| ID: .*"|
|00002430| 20 74 5d 20 38 5d 29 0a | 28 64 65 66 61 6c 69 61 | t] 8]).|(defalia|
|00002440| 73 20 27 6d 63 2d 70 67 | 70 2d 73 6e 61 72 66 2d |s 'mc-pg|p-snarf-|
|00002450| 70 61 72 73 65 72 20 23 | 5b 28 72 65 73 75 6c 74 |parser #|[(result|
|00002460| 29 20 22 08 c1 61 87 22 | 20 5b 72 65 73 75 6c 74 |) "..a."| [result|
|00002470| 20 30 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 | 0] 2]).|(defalia|
|00002480| 73 20 27 6d 63 2d 70 67 | 70 2d 73 6e 61 72 66 2d |s 'mc-pg|p-snarf-|
|00002490| 6b 65 79 73 20 23 5b 28 | 73 74 61 72 74 20 65 6e |keys #[(|start en|
|000024a0| 64 29 20 22 c0 09 21 c2 | 89 1b 1c 1d c6 13 0e 07 |d) "..!.|........|
|000024b0| ab 8a c8 0b c9 ca 0e 07 | 5c 22 43 5c 22 13 cb cc |........|\"C\"...|
|000024c0| 21 88 cd 0e 0e 0e 0f c2 | 0e 10 0b d1 0d 26 07 ab |!.......|.....&..|
|000024d0| ad 8a 0d 71 88 65 62 88 | d2 0e 13 c2 d4 23 ad 9b |...q.eb.|.....#..|
|000024e0| 0e 15 ab 84 d6 0d 21 88 | d7 d8 94 d8 95 5c 22 89 |......!.|.....\".|
|000024f0| 14 d9 6b ab 83 da aa 84 | db 0c 21 40 29 aa 8c d6 |..k.....|..!@)...|
|00002500| 0d 21 88 dc 0e 1d 0d de | 23 88 da 2b 87 22 20 5b |.!......|#..+." [|
|00002510| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00002520| 65 20 6d 63 2d 62 75 66 | 66 65 72 2d 6e 61 6d 65 |e mc-buf|fer-name|
|00002530| 20 6e 69 6c 20 61 72 67 | 73 20 74 6d 70 73 74 72 | nil arg|s tmpstr|
|00002540| 20 62 75 66 66 65 72 20 | 28 22 2b 76 65 72 62 6f | buffer |("+verbo|
|00002550| 73 65 3d 31 22 20 22 2b | 62 61 74 63 68 6d 6f 64 |se=1" "+|batchmod|
|00002560| 65 22 20 22 2b 6c 61 6e | 67 75 61 67 65 3d 65 6e |e" "+lan|guage=en|
|00002570| 22 20 22 2d 6b 61 66 22 | 29 20 6d 63 2d 70 67 70 |" "-kaf"|) mc-pgp|
|00002580| 2d 61 6c 74 65 72 6e 61 | 74 65 2d 6b 65 79 72 69 |-alterna|te-keyri|
|00002590| 6e 67 20 61 70 70 65 6e | 64 20 66 6f 72 6d 61 74 |ng appen|d format|
|000025a0| 20 22 2b 70 75 62 72 69 | 6e 67 3d 25 73 22 20 6d | "+pubri|ng=%s" m|
|000025b0| 65 73 73 61 67 65 20 22 | 53 6e 61 72 66 69 6e 67 |essage "|Snarfing|
|000025c0| 2e 2e 2e 22 20 6d 63 2d | 70 72 6f 63 65 73 73 2d |..." mc-|process-|
|000025d0| 72 65 67 69 6f 6e 20 73 | 74 61 72 74 20 65 6e 64 |region s|tart end|
|000025e0| 20 6d 63 2d 70 67 70 2d | 70 61 74 68 20 6d 63 2d | mc-pgp-|path mc-|
|000025f0| 70 67 70 2d 73 6e 61 72 | 66 2d 70 61 72 73 65 72 |pgp-snar|f-parser|
|00002600| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00002610| 72 64 20 6d 63 2d 70 67 | 70 2d 6e 65 77 6b 65 79 |rd mc-pg|p-newkey|
|00002620| 2d 72 65 20 74 20 6d 63 | 2d 70 67 70 2d 64 69 73 |-re t mc|-pgp-dis|
|00002630| 70 6c 61 79 2d 73 6e 61 | 72 66 2d 6f 75 74 70 75 |play-sna|rf-outpu|
|00002640| 74 20 6d 63 2d 64 69 73 | 70 6c 61 79 2d 62 75 66 |t mc-dis|play-buf|
|00002650| 66 65 72 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 |fer buff|er-subst|
|00002660| 72 69 6e 67 2d 6e 6f 2d | 70 72 6f 70 65 72 74 69 |ring-no-|properti|
|00002670| 65 73 20 31 20 22 4e 6f | 22 20 30 20 72 65 61 64 |es 1 "No|" 0 read|
|00002680| 2d 66 72 6f 6d 2d 73 74 | 72 69 6e 67 20 6d 63 2d |-from-st|ring mc-|
|00002690| 6d 65 73 73 61 67 65 20 | 6d 63 2d 70 67 70 2d 65 |message |mc-pgp-e|
|000026a0| 72 72 6f 72 2d 72 65 20 | 22 45 72 72 6f 72 20 73 |rror-re |"Error s|
|000026b0| 6e 61 72 66 69 6e 67 20 | 50 47 50 20 6b 65 79 73 |narfing |PGP keys|
|000026c0| 22 5d 20 39 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"] 9]).(|defalias|
|000026d0| 20 27 6d 63 2d 73 63 68 | 65 6d 65 2d 70 67 70 20 | 'mc-sch|eme-pgp |
|000026e0| 23 5b 6e 69 6c 20 22 c0 | c1 42 c2 c3 42 c4 c5 42 |#[nil ".|.B..B..B|
|000026f0| c6 c7 42 c8 c9 42 ca cb | 42 cc 0e 0d 42 ce 0e 0f |..B..B..|B...B...|
|00002700| 42 d0 0e 11 42 d2 0e 13 | 42 d4 0e 15 42 d6 0e 17 |B...B...|B...B...|
|00002710| 42 d8 0e 19 42 af 0d 87 | 22 20 5b 65 6e 63 72 79 |B...B...|" [encry|
|00002720| 70 74 69 6f 6e 2d 66 75 | 6e 63 20 6d 63 2d 70 67 |ption-fu|nc mc-pg|
|00002730| 70 2d 65 6e 63 72 79 70 | 74 2d 72 65 67 69 6f 6e |p-encryp|t-region|
|00002740| 20 64 65 63 72 79 70 74 | 69 6f 6e 2d 66 75 6e 63 | decrypt|ion-func|
|00002750| 20 6d 63 2d 70 67 70 2d | 64 65 63 72 79 70 74 2d | mc-pgp-|decrypt-|
|00002760| 72 65 67 69 6f 6e 20 73 | 69 67 6e 69 6e 67 2d 66 |region s|igning-f|
|00002770| 75 6e 63 20 6d 63 2d 70 | 67 70 2d 73 69 67 6e 2d |unc mc-p|gp-sign-|
|00002780| 72 65 67 69 6f 6e 20 76 | 65 72 69 66 69 63 61 74 |region v|erificat|
|00002790| 69 6f 6e 2d 66 75 6e 63 | 20 6d 63 2d 70 67 70 2d |ion-func| mc-pgp-|
|000027a0| 76 65 72 69 66 79 2d 72 | 65 67 69 6f 6e 20 6b 65 |verify-r|egion ke|
|000027b0| 79 2d 69 6e 73 65 72 74 | 69 6f 6e 2d 66 75 6e 63 |y-insert|ion-func|
|000027c0| 20 6d 63 2d 70 67 70 2d | 69 6e 73 65 72 74 2d 70 | mc-pgp-|insert-p|
|000027d0| 75 62 6c 69 63 2d 6b 65 | 79 20 73 6e 61 72 66 2d |ublic-ke|y snarf-|
|000027e0| 66 75 6e 63 20 6d 63 2d | 70 67 70 2d 73 6e 61 72 |func mc-|pgp-snar|
|000027f0| 66 2d 6b 65 79 73 20 6d | 73 67 2d 62 65 67 69 6e |f-keys m|sg-begin|
|00002800| 2d 6c 69 6e 65 20 6d 63 | 2d 70 67 70 2d 6d 73 67 |-line mc|-pgp-msg|
|00002810| 2d 62 65 67 69 6e 2d 6c | 69 6e 65 20 6d 73 67 2d |-begin-l|ine msg-|
|00002820| 65 6e 64 2d 6c 69 6e 65 | 20 6d 63 2d 70 67 70 2d |end-line| mc-pgp-|
|00002830| 6d 73 67 2d 65 6e 64 2d | 6c 69 6e 65 20 73 69 67 |msg-end-|line sig|
|00002840| 6e 65 64 2d 62 65 67 69 | 6e 2d 6c 69 6e 65 20 6d |ned-begi|n-line m|
|00002850| 63 2d 70 67 70 2d 73 69 | 67 6e 65 64 2d 62 65 67 |c-pgp-si|gned-beg|
|00002860| 69 6e 2d 6c 69 6e 65 20 | 73 69 67 6e 65 64 2d 65 |in-line |signed-e|
|00002870| 6e 64 2d 6c 69 6e 65 20 | 6d 63 2d 70 67 70 2d 73 |nd-line |mc-pgp-s|
|00002880| 69 67 6e 65 64 2d 65 6e | 64 2d 6c 69 6e 65 20 6b |igned-en|d-line k|
|00002890| 65 79 2d 62 65 67 69 6e | 2d 6c 69 6e 65 20 6d 63 |ey-begin|-line mc|
|000028a0| 2d 70 67 70 2d 6b 65 79 | 2d 62 65 67 69 6e 2d 6c |-pgp-key|-begin-l|
|000028b0| 69 6e 65 20 6b 65 79 2d | 65 6e 64 2d 6c 69 6e 65 |ine key-|end-line|
|000028c0| 20 6d 63 2d 70 67 70 2d | 6b 65 79 2d 65 6e 64 2d | mc-pgp-|key-end-|
|000028d0| 6c 69 6e 65 20 75 73 65 | 72 2d 69 64 20 6d 63 2d |line use|r-id mc-|
|000028e0| 70 67 70 2d 75 73 65 72 | 2d 69 64 5d 20 31 34 5d |pgp-user|-id] 14]|
|000028f0| 29 0a 23 40 37 32 20 2a | 49 66 20 74 2c 20 61 6c |).#@72 *|If t, al|
|00002900| 77 61 79 73 20 61 74 74 | 65 6d 70 74 20 74 6f 20 |ways att|empt to |
|00002910| 66 65 74 63 68 20 6d 69 | 73 73 69 6e 67 20 6b 65 |fetch mi|ssing ke|
|00002920| 79 73 2c 20 6f 72 20 6e | 65 76 65 72 20 66 65 74 |ys, or n|ever fet|
|00002930| 63 68 20 69 66 0a 27 6e | 65 76 65 72 2e 1f 0a 28 |ch if.'n|ever...(|
|00002940| 64 65 66 76 61 72 20 6d | 63 2d 70 67 70 2d 61 6c |defvar m|c-pgp-al|
|00002950| 77 61 79 73 2d 66 65 74 | 63 68 20 6e 69 6c 20 28 |ways-fet|ch nil (|
|00002960| 23 24 20 2e 20 2d 31 30 | 34 38 37 29 29 0a 23 40 |#$ . -10|487)).#@|
|00002970| 33 35 20 54 68 65 20 55 | 52 4c 20 74 6f 20 70 61 |35 The U|RL to pa|
|00002980| 73 73 20 74 6f 20 74 68 | 65 20 6b 65 79 73 65 72 |ss to th|e keyser|
|00002990| 76 65 72 2e 1f 0a 28 64 | 65 66 76 61 72 20 6d 63 |ver...(d|efvar mc|
|000029a0| 2d 70 67 70 2d 6b 65 79 | 73 65 72 76 65 72 2d 75 |-pgp-key|server-u|
|000029b0| 72 6c 2d 74 65 6d 70 6c | 61 74 65 20 22 2f 68 74 |rl-templ|ate "/ht|
|000029c0| 62 69 6e 2f 70 6b 73 2d | 65 78 74 72 61 63 74 2d |bin/pks-|extract-|
|000029d0| 6b 65 79 2e 70 6c 3f 6f | 70 3d 67 65 74 26 73 65 |key.pl?o|p=get&se|
|000029e0| 61 72 63 68 3d 25 73 22 | 20 28 23 24 20 2e 20 31 |arch=%s"| (#$ . 1|
|000029f0| 30 36 31 31 29 29 0a 23 | 40 32 35 20 48 6f 73 74 |0611)).#|@25 Host|
|00002a00| 20 6e 61 6d 65 20 6f 66 | 20 6b 65 79 73 65 72 76 | name of| keyserv|
|00002a10| 65 72 2e 1f 0a 28 64 65 | 66 76 61 72 20 6d 63 2d |er...(de|fvar mc-|
|00002a20| 70 67 70 2d 6b 65 79 73 | 65 72 76 65 72 2d 61 64 |pgp-keys|erver-ad|
|00002a30| 64 72 65 73 73 20 22 70 | 67 70 2e 61 69 2e 6d 69 |dress "p|gp.ai.mi|
|00002a40| 74 2e 65 64 75 22 20 28 | 23 24 20 2e 20 31 30 37 |t.edu" (|#$ . 107|
|00002a50| 34 38 29 29 0a 23 40 35 | 30 20 50 6f 72 74 20 6f |48)).#@5|0 Port o|
|00002a60| 6e 20 77 68 69 63 68 20 | 74 68 65 20 6b 65 79 73 |n which |the keys|
|00002a70| 65 72 76 65 72 27 73 20 | 48 54 54 50 20 64 61 65 |erver's |HTTP dae|
|00002a80| 6d 6f 6e 20 6c 69 76 65 | 73 2e 1f 0a 28 64 65 66 |mon live|s...(def|
|00002a90| 76 61 72 20 6d 63 2d 70 | 67 70 2d 6b 65 79 73 65 |var mc-p|gp-keyse|
|00002aa0| 72 76 65 72 2d 70 6f 72 | 74 20 38 30 20 28 23 24 |rver-por|t 80 (#$|
|00002ab0| 20 2e 20 31 30 38 34 32 | 29 29 0a 23 40 36 33 20 | . 10842|)).#@63 |
|00002ac0| 2a 54 69 6d 65 6f 75 74 | 2c 20 69 6e 20 73 65 63 |*Timeout|, in sec|
|00002ad0| 6f 6e 64 73 2c 20 66 6f | 72 20 61 6e 79 20 70 61 |onds, fo|r any pa|
|00002ae0| 72 74 69 63 75 6c 61 72 | 20 6b 65 79 20 66 65 74 |rticular| key fet|
|00002af0| 63 68 20 6f 70 65 72 61 | 74 69 6f 6e 2e 1f 0a 28 |ch opera|tion...(|
|00002b00| 64 65 66 76 61 72 20 6d | 63 2d 70 67 70 2d 66 65 |defvar m|c-pgp-fe|
|00002b10| 74 63 68 2d 74 69 6d 65 | 6f 75 74 20 32 30 20 28 |tch-time|out 20 (|
|00002b20| 23 24 20 2e 20 2d 31 30 | 39 34 34 29 29 0a 23 40 |#$ . -10|944)).#@|
|00002b30| 38 37 20 2a 4c 69 73 74 | 20 6f 66 20 73 74 72 69 |87 *List| of stri|
|00002b40| 6e 67 73 20 77 68 69 63 | 68 20 61 72 65 20 66 69 |ngs whic|h are fi|
|00002b50| 6c 65 6e 61 6d 65 73 20 | 6f 66 20 70 75 62 6c 69 |lenames |of publi|
|00002b60| 63 20 6b 65 79 72 69 6e | 67 73 20 74 6f 20 73 65 |c keyrin|gs to se|
|00002b70| 61 72 63 68 0a 77 68 65 | 6e 20 66 65 74 63 68 69 |arch.whe|n fetchi|
|00002b80| 6e 67 20 6b 65 79 73 2e | 1f 0a 28 64 65 66 76 61 |ng keys.|..(defva|
|00002b90| 72 20 6d 63 2d 70 67 70 | 2d 66 65 74 63 68 2d 6b |r mc-pgp|-fetch-k|
|00002ba0| 65 79 72 69 6e 67 2d 6c | 69 73 74 20 6e 69 6c 20 |eyring-l|ist nil |
|00002bb0| 28 23 24 20 2e 20 2d 31 | 31 30 35 39 29 29 0a 23 |(#$ . -1|1059)).#|
|00002bc0| 40 37 30 20 52 65 74 75 | 72 6e 20 74 68 65 20 66 |@70 Retu|rn the f|
|00002bd0| 69 72 73 74 20 6b 65 79 | 20 62 6c 6f 63 6b 20 69 |irst key| block i|
|00002be0| 6e 20 42 55 46 20 61 73 | 20 61 20 73 74 72 69 6e |n BUF as| a strin|
|00002bf0| 67 2c 20 6f 72 20 6e 69 | 6c 20 69 66 20 6e 6f 6e |g, or ni|l if non|
|00002c00| 65 20 66 6f 75 6e 64 2e | 1f 0a 28 64 65 66 61 6c |e found.|..(defal|
|00002c10| 69 61 73 20 27 6d 63 2d | 70 67 70 2d 62 75 66 66 |ias 'mc-|pgp-buff|
|00002c20| 65 72 2d 67 65 74 2d 6b | 65 79 20 23 5b 28 62 75 |er-get-k|ey #[(bu|
|00002c30| 66 29 20 22 8a c0 19 5c | 6e 71 88 65 62 88 c3 0c |f) "...\|nq.eb...|
|00002c40| c0 c5 23 ad 93 c6 94 89 | 11 ad 8d c3 0e 07 c0 c5 |..#.....|........|
|00002c50| 23 ad 85 c8 09 c6 95 5c | 22 2a 87 22 20 5b 6e 69 |#......\|"*." [ni|
|00002c60| 6c 20 73 74 61 72 74 20 | 62 75 66 20 72 65 2d 73 |l start |buf re-s|
|00002c70| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 6d 63 |earch-fo|rward mc|
|00002c80| 2d 70 67 70 2d 6b 65 79 | 2d 62 65 67 69 6e 2d 6c |-pgp-key|-begin-l|
|00002c90| 69 6e 65 20 74 20 30 20 | 6d 63 2d 70 67 70 2d 6b |ine t 0 |mc-pgp-k|
|00002ca0| 65 79 2d 65 6e 64 2d 6c | 69 6e 65 20 62 75 66 66 |ey-end-l|ine buff|
|00002cb0| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 2d 6e 6f 2d |er-subst|ring-no-|
|00002cc0| 70 72 6f 70 65 72 74 69 | 65 73 5d 20 34 20 28 23 |properti|es] 4 (#|
|00002cd0| 24 20 2e 20 31 31 32 30 | 34 29 5d 29 0a 28 62 79 |$ . 1120|4)]).(by|
|00002ce0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00002cf0| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 87 22 20 5b 6d |...\"...|..#." [m|
|00002d00| 63 2d 70 67 70 2d 62 75 | 66 66 65 72 2d 67 65 74 |c-pgp-bu|ffer-get|
|00002d10| 2d 6b 65 79 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |-key byt|e-optimi|
|00002d20| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|00002d30| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00002d40| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|00002d50| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|00002d60| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|00002d70| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|00002d80| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|00002d90| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00002da0| 64 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d] 4).(d|efalias |
|00002db0| 27 6d 63 2d 70 67 70 2d | 66 65 74 63 68 2d 66 72 |'mc-pgp-|fetch-fr|
|00002dc0| 6f 6d 2d 6b 65 79 72 69 | 6e 67 73 20 23 5b 28 69 |om-keyri|ngs #[(i|
|00002dd0| 64 29 20 22 08 c1 89 89 | 1a 1b 1c 1d c6 8e c7 c8 |d) "....|........|
|00002de0| 0e 09 41 ae 83 0e 09 40 | 5c 22 88 5c 6e ac e2 0d |..A....@|\".\n...|
|00002df0| ab df ca cb 21 14 cc cd | 0c 0e 0e cf d0 d1 d2 d3 |....!...|........|
|00002e00| 0d 40 5c 22 0e 09 41 ae | 83 0e 09 40 26 08 13 d4 |.@\"..A.|...@&...|
|00002e10| 0b d5 5c 22 88 d6 0b 21 | d7 61 ab 87 d8 0b d9 5c |..\"...!|.a.....\|
|00002e20| 22 88 aa 72 0c 1c 8a c1 | 1e 1a 0c 71 88 65 62 88 |"..r....|...q.eb.|
|00002e30| db 0e 1c c1 dd 23 ad 95 | de 94 89 16 1a ad 8e db |.....#..|........|
|00002e40| 0e 1f c1 dd 23 ad 86 e0 | 0e 1a de 95 5c 22 2b 12 |....#...|....\"+.|
|00002e50| 0d 41 15 aa 1b 5c 6e 2d | 87 22 20 5b 6d 63 2d 70 |.A...\n-|." [mc-p|
|00002e60| 67 70 2d 66 65 74 63 68 | 2d 6b 65 79 72 69 6e 67 |gp-fetch|-keyring|
|00002e70| 2d 6c 69 73 74 20 6e 69 | 6c 20 6b 65 79 20 70 72 |-list ni|l key pr|
|00002e80| 6f 63 20 62 75 66 20 6b | 65 79 72 69 6e 67 2d 6c |oc buf k|eyring-l|
|00002e90| 69 73 74 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ist ((by|te-code |
|00002ea0| 22 08 ab 84 c1 08 21 88 | 5c 6e ab 8b c3 5c 6e 21 |".....!.|\n...\n!|
|00002eb0| c4 61 ab 84 c5 5c 6e 21 | 88 c1 87 22 20 5b 62 75 |.a...\n!|..." [bu|
|00002ec0| 66 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 20 70 72 |f kill-b|uffer pr|
|00002ed0| 6f 63 20 70 72 6f 63 65 | 73 73 2d 73 74 61 74 75 |oc proce|ss-statu|
|00002ee0| 73 20 72 75 6e 20 69 6e | 74 65 72 72 75 70 74 2d |s run in|terrupt-|
|00002ef0| 70 72 6f 63 65 73 73 5d | 20 32 29 29 20 6d 65 73 |process]| 2)) mes|
|00002f00| 73 61 67 65 20 22 46 65 | 74 63 68 69 6e 67 20 25 |sage "Fe|tching %|
|00002f10| 73 20 66 72 6f 6d 20 6b | 65 79 72 69 6e 67 73 2e |s from k|eyrings.|
|00002f20| 2e 2e 22 20 69 64 20 67 | 65 6e 65 72 61 74 65 2d |.." id g|enerate-|
|00002f30| 6e 65 77 2d 62 75 66 66 | 65 72 20 22 20 2a 6d 61 |new-buff|er " *ma|
|00002f40| 69 6c 63 72 79 70 74 20 | 74 65 6d 70 2a 22 20 73 |ilcrypt |temp*" s|
|00002f50| 74 61 72 74 2d 70 72 6f | 63 65 73 73 20 22 2a 50 |tart-pro|cess "*P|
|00002f60| 47 50 2a 22 20 6d 63 2d | 70 67 70 2d 70 61 74 68 |GP*" mc-|pgp-path|
|00002f70| 20 22 2d 6b 78 61 66 22 | 20 22 2b 76 65 72 62 6f | "-kxaf"| "+verbo|
|00002f80| 73 65 3d 30 22 20 22 2b | 62 61 74 63 68 6d 6f 64 |se=0" "+|batchmod|
|00002f90| 65 22 20 66 6f 72 6d 61 | 74 20 22 2b 70 75 62 72 |e" forma|t "+pubr|
|00002fa0| 69 6e 67 3d 25 73 22 20 | 70 72 6f 63 65 73 73 2d |ing=%s" |process-|
|00002fb0| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 22 0d 5c 6e |send-str|ing ".\n|
|00002fc0| 22 20 70 72 6f 63 65 73 | 73 2d 73 74 61 74 75 73 |" proces|s-status|
|00002fd0| 20 72 75 6e 20 61 63 63 | 65 70 74 2d 70 72 6f 63 | run acc|ept-proc|
|00002fe0| 65 73 73 2d 6f 75 74 70 | 75 74 20 35 20 73 74 61 |ess-outp|ut 5 sta|
|00002ff0| 72 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |rt re-se|arch-for|
|00003000| 77 61 72 64 20 6d 63 2d | 70 67 70 2d 6b 65 79 2d |ward mc-|pgp-key-|
|00003010| 62 65 67 69 6e 2d 6c 69 | 6e 65 20 74 20 30 20 6d |begin-li|ne t 0 m|
|00003020| 63 2d 70 67 70 2d 6b 65 | 79 2d 65 6e 64 2d 6c 69 |c-pgp-ke|y-end-li|
|00003030| 6e 65 20 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |ne buffe|r-substr|
|00003040| 69 6e 67 2d 6e 6f 2d 70 | 72 6f 70 65 72 74 69 65 |ing-no-p|ropertie|
|00003050| 73 5d 20 31 30 5d 29 0a | 28 64 65 66 61 6c 69 61 |s] 10]).|(defalia|
|00003060| 73 20 27 6d 63 2d 70 67 | 70 2d 66 65 74 63 68 2d |s 'mc-pg|p-fetch-|
|00003070| 66 72 6f 6d 2d 68 74 74 | 70 20 23 5b 28 69 64 29 |from-htt|p #[(id)|
|00003080| 20 22 c0 89 19 1a c3 8e | c4 c5 0e 06 41 ae 83 0e | "......|....A...|
|00003090| 06 40 0e 07 23 88 c8 c9 | 21 12 ca cb 5c 6e 0e 07 |.@..#...|!...\n..|
|000030a0| 0e 0c 24 11 cd 09 ce cf | 0e 10 0e 06 41 ae 83 0e |..$.....|....A...|
|000030b0| 06 40 5c 22 d1 51 5c 22 | 88 d2 09 21 d3 61 ab 87 |.@\".Q\"|...!.a..|
|000030c0| d4 09 0e 15 5c 22 ac 72 | 5c 6e 1a 8a c0 1e 16 5c |....\".r|\n.....\|
|000030d0| 6e 71 88 65 62 88 d7 0e | 18 c0 d9 23 ad 95 da 94 |nq.eb...|...#....|
|000030e0| 89 16 16 ad 8e d7 0e 1b | c0 d9 23 ad 86 dc 0e 16 |........|..#.....|
|000030f0| da 95 5c 22 2e 06 87 22 | 20 5b 6e 69 6c 20 63 6f |..\"..."| [nil co|
|00003100| 6e 6e 65 63 74 69 6f 6e | 20 62 75 66 20 28 28 62 |nnection| buf ((b|
|00003110| 79 74 65 2d 63 6f 64 65 | 20 22 08 ab 84 c1 08 21 |yte-code| ".....!|
|00003120| 88 5c 6e ab 84 c3 5c 6e | 21 88 c1 87 22 20 5b 62 |.\n...\n|!..." [b|
|00003130| 75 66 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 63 |uf kill-|buffer c|
|00003140| 6f 6e 6e 65 63 74 69 6f | 6e 20 64 65 6c 65 74 65 |onnectio|n delete|
|00003150| 2d 70 72 6f 63 65 73 73 | 5d 20 32 29 29 20 6d 65 |-process|] 2)) me|
|00003160| 73 73 61 67 65 20 22 46 | 65 74 63 68 69 6e 67 20 |ssage "F|etching |
|00003170| 25 73 20 76 69 61 20 48 | 54 54 50 20 74 6f 20 25 |%s via H|TTP to %|
|00003180| 73 2e 2e 2e 22 20 69 64 | 20 6d 63 2d 70 67 70 2d |s..." id| mc-pgp-|
|00003190| 6b 65 79 73 65 72 76 65 | 72 2d 61 64 64 72 65 73 |keyserve|r-addres|
|000031a0| 73 20 67 65 6e 65 72 61 | 74 65 2d 6e 65 77 2d 62 |s genera|te-new-b|
|000031b0| 75 66 66 65 72 20 22 20 | 2a 6d 61 69 6c 63 72 79 |uffer " |*mailcry|
|000031c0| 70 74 20 74 65 6d 70 2a | 22 20 6f 70 65 6e 2d 6e |pt temp*|" open-n|
|000031d0| 65 74 77 6f 72 6b 2d 73 | 74 72 65 61 6d 20 22 2a |etwork-s|tream "*|
|000031e0| 6b 65 79 20 66 65 74 63 | 68 2a 22 20 6d 63 2d 70 |key fetc|h*" mc-p|
|000031f0| 67 70 2d 6b 65 79 73 65 | 72 76 65 72 2d 70 6f 72 |gp-keyse|rver-por|
|00003200| 74 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |t proces|s-send-s|
|00003210| 74 72 69 6e 67 20 22 47 | 45 54 20 22 20 66 6f 72 |tring "G|ET " for|
|00003220| 6d 61 74 20 6d 63 2d 70 | 67 70 2d 6b 65 79 73 65 |mat mc-p|gp-keyse|
|00003230| 72 76 65 72 2d 75 72 6c | 2d 74 65 6d 70 6c 61 74 |rver-url|-templat|
|00003240| 65 20 22 0d 5c 6e 22 20 | 70 72 6f 63 65 73 73 2d |e ".\n" |process-|
|00003250| 73 74 61 74 75 73 20 6f | 70 65 6e 20 61 63 63 65 |status o|pen acce|
|00003260| 70 74 2d 70 72 6f 63 65 | 73 73 2d 6f 75 74 70 75 |pt-proce|ss-outpu|
|00003270| 74 20 6d 63 2d 70 67 70 | 2d 66 65 74 63 68 2d 74 |t mc-pgp|-fetch-t|
|00003280| 69 6d 65 6f 75 74 20 73 | 74 61 72 74 20 72 65 2d |imeout s|tart re-|
|00003290| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6d |search-f|orward m|
|000032a0| 63 2d 70 67 70 2d 6b 65 | 79 2d 62 65 67 69 6e 2d |c-pgp-ke|y-begin-|
|000032b0| 6c 69 6e 65 20 74 20 30 | 20 6d 63 2d 70 67 70 2d |line t 0| mc-pgp-|
|000032c0| 6b 65 79 2d 65 6e 64 2d | 6c 69 6e 65 20 62 75 66 |key-end-|line buf|
|000032d0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 2d 6e 6f |fer-subs|tring-no|
|000032e0| 2d 70 72 6f 70 65 72 74 | 69 65 73 5d 20 36 5d 29 |-propert|ies] 6])|
|000032f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 63 2d 70 |.(defali|as 'mc-p|
|00003300| 67 70 2d 66 65 74 63 68 | 2d 66 72 6f 6d 2d 66 69 |gp-fetch|-from-fi|
|00003310| 6e 67 65 72 20 23 5b 28 | 69 64 29 20 22 c0 89 89 |nger #[(|id) "...|
|00003320| 89 19 1a 1b 1c c5 8e 0e | 06 40 ad a9 c7 c8 0e 06 |........|.@......|
|00003330| 40 5c 22 ad a1 c9 ca 0e | 06 40 5c 22 88 0e 06 40 |@\".....|.@\"...@|
|00003340| cb 94 cb 95 4f 12 0e 06 | 40 cc 94 cc 95 4f 11 cd |....O...|@....O..|
|00003350| ce 21 14 c0 cf d0 8f 2d | 87 22 20 5b 6e 69 6c 20 |.!.....-|." [nil |
|00003360| 68 6f 73 74 20 75 73 65 | 72 20 63 6f 6e 6e 65 63 |host use|r connec|
|00003370| 74 69 6f 6e 20 62 75 66 | 20 28 28 62 79 74 65 2d |tion buf| ((byte-|
|00003380| 63 6f 64 65 20 22 08 ab | 84 c1 08 21 88 5c 6e ab |code "..|...!.\n.|
|00003390| 84 c3 5c 6e 21 88 c1 87 | 22 20 5b 62 75 66 20 6b |..\n!...|" [buf k|
|000033a0| 69 6c 6c 2d 62 75 66 66 | 65 72 20 63 6f 6e 6e 65 |ill-buff|er conne|
|000033b0| 63 74 69 6f 6e 20 64 65 | 6c 65 74 65 2d 70 72 6f |ction de|lete-pro|
|000033c0| 63 65 73 73 5d 20 32 29 | 29 20 69 64 20 73 74 72 |cess] 2)|) id str|
|000033d0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5e 5c 5c 28 2e |ing-matc|h "^\\(.|
|000033e0| 2b 5c 5c 29 40 5c 5c 28 | 5b 5e 40 5d 2b 5c 5c 29 |+\\)@\\(|[^@]+\\)|
|000033f0| 24 22 20 6d 65 73 73 61 | 67 65 20 22 54 72 79 69 |$" messa|ge "Tryi|
|00003400| 6e 67 20 66 69 6e 67 65 | 72 20 25 73 2e 2e 2e 22 |ng finge|r %s..."|
|00003410| 20 31 20 32 20 67 65 6e | 65 72 61 74 65 2d 6e 65 | 1 2 gen|erate-ne|
|00003420| 77 2d 62 75 66 66 65 72 | 20 22 20 2a 6d 61 69 6c |w-buffer| " *mail|
|00003430| 63 72 79 70 74 20 74 65 | 6d 70 2a 22 20 28 62 79 |crypt te|mp*" (by|
|00003440| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 5c 6e 0b c4 24 |te-code |"..\n..$|
|00003450| 15 c6 0d c7 0e 08 c9 51 | 5c 22 88 ca 0d 21 cb 61 |.......Q|\"...!.a|
|00003460| ab 87 cc 0d 0e 0d 5c 22 | ac 72 5c 6e 1a 8a ce 1e |......\"|.r\n....|
|00003470| 0f 5c 6e 71 88 65 62 88 | d0 0e 11 ce d2 23 ad 95 |.\nq.eb.|.....#..|
|00003480| d3 94 89 16 0f ad 8e d0 | 0e 14 ce d2 23 ad 86 d5 |........|....#...|
|00003490| 0e 0f d3 95 5c 22 2b 87 | 22 20 5b 6f 70 65 6e 2d |....\"+.|" [open-|
|000034a0| 6e 65 74 77 6f 72 6b 2d | 73 74 72 65 61 6d 20 22 |network-|stream "|
|000034b0| 2a 6b 65 79 20 66 65 74 | 63 68 2a 22 20 62 75 66 |*key fet|ch*" buf|
|000034c0| 20 68 6f 73 74 20 37 39 | 20 63 6f 6e 6e 65 63 74 | host 79| connect|
|000034d0| 69 6f 6e 20 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |ion proc|ess-send|
|000034e0| 2d 73 74 72 69 6e 67 20 | 22 2f 57 20 22 20 75 73 |-string |"/W " us|
|000034f0| 65 72 20 22 0d 5c 6e 22 | 20 70 72 6f 63 65 73 73 |er ".\n"| process|
|00003500| 2d 73 74 61 74 75 73 20 | 6f 70 65 6e 20 61 63 63 |-status |open acc|
|00003510| 65 70 74 2d 70 72 6f 63 | 65 73 73 2d 6f 75 74 70 |ept-proc|ess-outp|
|00003520| 75 74 20 6d 63 2d 70 67 | 70 2d 66 65 74 63 68 2d |ut mc-pg|p-fetch-|
|00003530| 74 69 6d 65 6f 75 74 20 | 6e 69 6c 20 73 74 61 72 |timeout |nil star|
|00003540| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |t re-sea|rch-forw|
|00003550| 61 72 64 20 6d 63 2d 70 | 67 70 2d 6b 65 79 2d 62 |ard mc-p|gp-key-b|
|00003560| 65 67 69 6e 2d 6c 69 6e | 65 20 74 20 30 20 6d 63 |egin-lin|e t 0 mc|
|00003570| 2d 70 67 70 2d 6b 65 79 | 2d 65 6e 64 2d 6c 69 6e |-pgp-key|-end-lin|
|00003580| 65 20 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |e buffer|-substri|
|00003590| 6e 67 2d 6e 6f 2d 70 72 | 6f 70 65 72 74 69 65 73 |ng-no-pr|operties|
|000035a0| 5d 20 35 29 20 28 28 65 | 72 72 6f 72 29 29 5d 20 |] 5) ((e|rror))] |
|000035b0| 34 5d 29 0a 23 40 32 30 | 32 20 4c 69 73 74 20 6f |4]).#@20|2 List o|
|000035c0| 66 20 6d 65 74 68 6f 64 | 73 20 74 6f 20 74 72 79 |f method|s to try|
|000035d0| 20 77 68 65 6e 20 61 74 | 74 65 6d 70 74 69 6e 67 | when at|tempting|
|000035e0| 20 74 6f 20 66 65 74 63 | 68 20 61 20 6b 65 79 2e | to fetc|h a key.|
|000035f0| 20 20 45 61 63 68 0a 65 | 6c 65 6d 65 6e 74 20 69 | Each.e|lement i|
|00003600| 73 20 61 20 66 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |s a func|tion to |
|00003610| 63 61 6c 6c 20 77 69 74 | 68 20 61 6e 20 49 44 20 |call wit|h an ID |
|00003620| 61 73 20 61 72 67 75 6d | 65 6e 74 2e 20 20 53 65 |as argum|ent. Se|
|00003630| 65 20 74 68 65 0a 64 6f | 63 75 6d 65 6e 74 61 74 |e the.do|cumentat|
|00003640| 69 6f 6e 20 66 6f 72 20 | 74 68 65 20 66 75 6e 63 |ion for |the func|
|00003650| 74 69 6f 6e 20 6d 63 2d | 70 67 70 2d 66 65 74 63 |tion mc-|pgp-fetc|
|00003660| 68 2d 6b 65 79 20 66 6f | 72 20 61 20 64 65 73 63 |h-key fo|r a desc|
|00003670| 72 69 70 74 69 6f 6e 20 | 6f 66 0a 74 68 65 20 49 |ription |of.the I|
|00003680| 44 2e 1f 0a 28 64 65 66 | 76 61 72 20 6d 63 2d 70 |D...(def|var mc-p|
|00003690| 67 70 2d 66 65 74 63 68 | 2d 6d 65 74 68 6f 64 73 |gp-fetch|-methods|
|000036a0| 20 27 28 6d 63 2d 70 67 | 70 2d 66 65 74 63 68 2d | '(mc-pg|p-fetch-|
|000036b0| 66 72 6f 6d 2d 6b 65 79 | 72 69 6e 67 73 20 6d 63 |from-key|rings mc|
|000036c0| 2d 70 67 70 2d 66 65 74 | 63 68 2d 66 72 6f 6d 2d |-pgp-fet|ch-from-|
|000036d0| 66 69 6e 67 65 72 20 6d | 63 2d 70 67 70 2d 66 65 |finger m|c-pgp-fe|
|000036e0| 74 63 68 2d 66 72 6f 6d | 2d 68 74 74 70 29 20 28 |tch-from|-http) (|
|000036f0| 23 24 20 2e 20 31 33 37 | 35 34 29 29 0a 23 40 34 |#$ . 137|54)).#@4|
|00003700| 32 38 20 41 74 74 65 6d | 70 74 20 74 6f 20 66 65 |28 Attem|pt to fe|
|00003710| 74 63 68 20 61 20 6b 65 | 79 20 66 6f 72 20 61 64 |tch a ke|y for ad|
|00003720| 64 69 74 69 6f 6e 20 74 | 6f 20 50 47 50 20 6b 65 |dition t|o PGP ke|
|00003730| 79 72 69 6e 67 2e 20 20 | 49 6e 74 65 72 61 63 74 |yring. |Interact|
|00003740| 69 76 65 6c 79 2c 0a 70 | 72 6f 6d 70 74 20 66 6f |ively,.p|rompt fo|
|00003750| 72 20 73 74 72 69 6e 67 | 20 6d 61 74 63 68 69 6e |r string| matchin|
|00003760| 67 20 6b 65 79 20 74 6f | 20 66 65 74 63 68 2e 0a |g key to| fetch..|
|00003770| 0a 4e 6f 6e 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |.Non-int|eractive|
|00003780| 6c 79 2c 20 49 44 20 6d | 75 73 74 20 62 65 20 61 |ly, ID m|ust be a|
|00003790| 20 70 61 69 72 2e 20 20 | 54 68 65 20 43 41 52 20 | pair. |The CAR |
|000037a0| 6d 75 73 74 20 62 65 20 | 61 20 62 61 72 65 20 45 |must be |a bare E|
|000037b0| 6d 61 69 6c 0a 61 64 64 | 72 65 73 73 20 61 6e 64 |mail.add|ress and|
|000037c0| 20 74 68 65 20 43 44 52 | 20 61 20 6b 65 79 49 44 | the CDR| a keyID|
|000037d0| 20 28 77 69 74 68 20 22 | 30 78 22 20 70 72 65 66 | (with "|0x" pref|
|000037e0| 69 78 29 2e 20 20 45 69 | 74 68 65 72 2c 20 62 75 |ix). Ei|ther, bu|
|000037f0| 74 20 6e 6f 74 0a 62 6f | 74 68 2c 20 6d 61 79 20 |t not.bo|th, may |
|00003800| 62 65 20 6e 69 6c 2e 0a | 0a 52 65 74 75 72 6e 20 |be nil..|.Return |
|00003810| 74 20 69 66 20 77 65 20 | 74 68 69 6e 6b 20 77 65 |t if we |think we|
|00003820| 20 77 65 72 65 20 73 75 | 63 63 65 73 73 66 75 6c | were su|ccessful|
|00003830| 3b 20 6e 69 6c 20 6f 74 | 68 65 72 77 69 73 65 2e |; nil ot|herwise.|
|00003840| 20 20 4e 6f 74 65 20 74 | 68 61 74 20 6e 69 6c 0a | Note t|hat nil.|
|00003850| 69 73 20 6e 6f 74 20 6e | 65 63 65 73 73 61 72 69 |is not n|ecessari|
|00003860| 6c 79 20 61 6e 20 65 72 | 72 6f 72 2c 20 73 69 6e |ly an er|ror, sin|
|00003870| 63 65 20 77 65 20 6d 61 | 79 20 68 61 76 65 20 6d |ce we ma|y have m|
|00003880| 65 72 65 6c 79 20 66 69 | 72 65 64 20 6f 66 66 20 |erely fi|red off |
|00003890| 61 6e 20 45 6d 61 69 6c | 0a 72 65 71 75 65 73 74 |an Email|.request|
|000038a0| 20 66 6f 72 20 74 68 65 | 20 6b 65 79 2e 1f 0a 28 | for the| key...(|
|000038b0| 64 65 66 61 6c 69 61 73 | 20 27 6d 63 2d 70 67 70 |defalias| 'mc-pgp|
|000038c0| 2d 66 65 74 63 68 2d 6b | 65 79 20 23 5b 28 26 6f |-fetch-k|ey #[(&o|
|000038d0| 70 74 69 6f 6e 61 6c 20 | 69 64 29 20 22 08 c1 89 |ptional |id) "...|
|000038e0| 89 89 89 1a 1b 1c 1d 1e | 06 1e 07 0e 08 ac 87 c9 |........|........|
|000038f0| ca 21 c1 42 16 08 0d ac | 92 0e 07 ab 8e 0e 07 40 |.!.B....|.......@|
|00003900| 0e 08 21 15 0e 07 41 16 | 07 aa 6b 0d 3b ac 87 cb |..!...A.|..k.;...|
|00003910| cc 21 88 c1 aa 85 cd 8e | ce 8b 29 2e 06 87 22 20 |.!......|..)..." |
|00003920| 5b 6d 63 2d 70 67 70 2d | 66 65 74 63 68 2d 6d 65 |[mc-pgp-|fetch-me|
|00003930| 74 68 6f 64 73 20 6e 69 | 6c 20 61 72 67 73 20 62 |thods ni|l args b|
|00003940| 75 66 20 70 72 6f 63 20 | 6b 65 79 20 70 72 6f 63 |uf proc |key proc|
|00003950| 65 73 73 2d 63 6f 6e 6e | 65 63 74 69 6f 6e 2d 74 |ess-conn|ection-t|
|00003960| 79 70 65 20 6d 65 74 68 | 6f 64 73 20 69 64 20 72 |ype meth|ods id r|
|00003970| 65 61 64 2d 73 74 72 69 | 6e 67 20 22 46 65 74 63 |ead-stri|ng "Fetc|
|00003980| 68 20 6b 65 79 20 66 6f | 72 3a 20 22 20 6d 65 73 |h key fo|r: " mes|
|00003990| 73 61 67 65 20 22 4b 65 | 79 20 6e 6f 74 20 66 6f |sage "Ke|y not fo|
|000039a0| 75 6e 64 2e 22 20 28 28 | 62 79 74 65 2d 63 6f 64 |und." ((|byte-cod|
|000039b0| 65 20 22 08 ab 84 c1 08 | 21 88 c1 87 22 20 5b 62 |e ".....|!..." [b|
|000039c0| 75 66 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |uf kill-|buffer] |
|000039d0| 32 29 29 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |2)) ((by|te-code |
|000039e0| 22 c0 c1 21 12 c3 5c 6e | 21 88 c4 20 c5 20 c6 a5 |"..!..\n|!.. . ..|
|000039f0| 57 ab 8a c7 c5 20 c6 a5 | c4 20 5a 21 88 c8 16 09 |W.... ..|. Z!....|
|00003a00| 0e 5c 6e ab 8c cb 0e 09 | cc cd 0e 5c 6e 5c 22 43 |.\n.....|...\n\"C|
|00003a10| 5c 22 16 09 ce cf d0 5c | 6e 0e 11 0e 09 25 16 12 |\".....\|n....%..|
|00003a20| d3 0e 12 d4 5c 22 88 d3 | 0e 12 0e 15 5c 22 88 d3 |....\"..|....\"..|
|00003a30| 0e 12 d4 5c 22 88 d6 0e | 12 21 88 5c 6e 71 88 d7 |...\"...|.!.\nq..|
|00003a40| 0e 12 21 d8 61 ab 8b d9 | 0e 12 da 5c 22 88 65 62 |..!.a...|...\".eb|
|00003a50| 88 aa 6d db dc 21 ad bb | cb 0e 09 dd 5c 22 16 09 |..m..!..|....\"..|
|00003a60| ce cf d0 5c 6e 0e 11 0e | 09 25 16 12 d3 0e 12 d4 |...\n...|.%......|
|00003a70| 5c 22 88 d3 0e 12 0e 15 | 5c 22 88 d3 0e 12 d4 5c |\"......|\".....\|
|00003a80| 22 88 d6 0e 12 21 88 d7 | 0e 12 21 d8 61 ab 88 d9 |"....!..|..!.a...|
|00003a90| 0e 12 da 5c 22 88 aa 70 | de 87 22 20 5b 67 65 6e |...\"..p|.." [gen|
|00003aa0| 65 72 61 74 65 2d 6e 65 | 77 2d 62 75 66 66 65 72 |erate-ne|w-buffer|
|00003ab0| 20 22 20 2a 50 47 50 20 | 4b 65 79 20 49 6e 66 6f | " *PGP |Key Info|
|00003ac0| 2a 22 20 62 75 66 20 70 | 6f 70 2d 74 6f 2d 62 75 |*" buf p|op-to-bu|
|00003ad0| 66 66 65 72 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |ffer win|dow-heig|
|00003ae0| 68 74 20 66 72 61 6d 65 | 2d 68 65 69 67 68 74 20 |ht frame|-height |
|00003af0| 32 20 65 6e 6c 61 72 67 | 65 2d 77 69 6e 64 6f 77 |2 enlarg|e-window|
|00003b00| 20 28 22 2d 66 22 20 22 | 2b 76 65 72 62 6f 73 65 | ("-f" "|+verbose|
|00003b10| 3d 30 22 20 22 2b 62 61 | 74 63 68 6d 6f 64 65 22 |=0" "+ba|tchmode"|
|00003b20| 29 20 61 72 67 73 20 6d | 63 2d 70 67 70 2d 61 6c |) args m|c-pgp-al|
|00003b30| 74 65 72 6e 61 74 65 2d | 6b 65 79 72 69 6e 67 20 |ternate-|keyring |
|00003b40| 61 70 70 65 6e 64 20 66 | 6f 72 6d 61 74 20 22 2b |append f|ormat "+|
|00003b50| 70 75 62 72 69 6e 67 3d | 25 73 22 20 61 70 70 6c |pubring=|%s" appl|
|00003b60| 79 20 73 74 61 72 74 2d | 70 72 6f 63 65 73 73 20 |y start-|process |
|00003b70| 22 2a 50 47 50 2a 22 20 | 6d 63 2d 70 67 70 2d 70 |"*PGP*" |mc-pgp-p|
|00003b80| 61 74 68 20 70 72 6f 63 | 20 70 72 6f 63 65 73 73 |ath proc| process|
|00003b90| 2d 73 65 6e 64 2d 73 74 | 72 69 6e 67 20 22 0d 5c |-send-st|ring ".\|
|00003ba0| 6e 22 20 6b 65 79 20 70 | 72 6f 63 65 73 73 2d 73 |n" key p|rocess-s|
|00003bb0| 65 6e 64 2d 65 6f 66 20 | 70 72 6f 63 65 73 73 2d |end-eof |process-|
|00003bc0| 73 74 61 74 75 73 20 72 | 75 6e 20 61 63 63 65 70 |status r|un accep|
|00003bd0| 74 2d 70 72 6f 63 65 73 | 73 2d 6f 75 74 70 75 74 |t-proces|s-output|
|00003be0| 20 35 20 79 2d 6f 72 2d | 6e 2d 70 20 22 41 64 64 | 5 y-or-|n-p "Add|
|00003bf0| 20 74 68 69 73 20 6b 65 | 79 20 74 6f 20 6b 65 79 | this ke|y to key|
|00003c00| 72 69 6e 67 3f 20 22 20 | 28 22 2d 6b 61 22 29 20 |ring? " |("-ka") |
|00003c10| 74 5d 20 36 29 29 5d 20 | 36 20 28 23 24 20 2e 20 |t] 6))] |6 (#$ . |
|00003c20| 31 34 30 38 33 29 20 6e | 69 6c 5d 29 0a |14083) n|il]). |
+--------+-------------------------+-------------------------+--------+--------+
